علت اين خطا چيه؟؟

يه كد نوشتم كه هر وقت پسوند فايل mp3 بود فرمي بنام frmAudio باز ميشه و فايل mp3 رو پلي ميكنه.
حالا برنامه براي بار اول فايل رو پلي ميكنه ولي براي بار دوم اين ارور رو ميده:
Access violation at address 00000000.Read of address 00000000.

کدشو بزار اینجا

اينم كدي كه نوشتم:

کد:

---

procedure TForm1.Playit1Click(Sender: TObject);
var Ex1:string;
begin
Ex1:=ExtractFileExt(File1.FileName);
if Ex1='.mp3' then
begin
frmAudio.Show;
frmAudio.Media1.FileName:=File1.FileName;
frmAudio.Media1.Open;
frmAudio.Label2.Caption:=Form1.File1.FileEdit.Text;
end;

---

اين كد مال فرم اصلي بود.
اين كد مال فرم دوم يعني frmAudio هست:

کد:

---

procedure TfrmAudio.Button1Click(Sender: TObject);
begin
        G1.MaxValue:=media1.Length;
        timer1.Enabled := True;
        Media1.Play;
end;
end.

---