Media Player with Borland

procedure TForm1.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
const
sc_dragmove=$F012;
begin
releasecapture;
form1.Perform(wm_syscommand,sc_dragmove,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
mediaplayer1.filename:=OpenDialog1.FileName;
mediaplayer1.Open;
MediaPlayer1.Play;
mediaplayer1.stop;
end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
mediaplayer1.Close;
end;

procedure TForm1.Panel1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if label2.visible = true then
label2.visible := false
else
label2.visible := true;
end;

procedure TForm1.Timer2Timer(Sender: TObject);
begin
label1.Caption:=timetostr(time);
end;


procedure TForm1.FormActivate(Sender: TObject);
var
busur:HRGN;
oke:HBRUSH;
setengah:HDC;
begin
busur:=createellipticrgn(200,200,500,500);
setwindowrgn(handle,busur,true);
deleteobject(busur);
end;