Gerekenler:
1 Mediaplayer
2 Button
3 Panel "aligin cilent olacak"
procedure TForm1.Button1Click(Sender: TObject);
begin
MediaPlayer1.FileName:='c:\hands.avi';
MediaPlayer1.Open;
MediaPlayer1.Display := panel1;
MediaPlayer1.DisplayRect := Rect(0 , 0, Form1.Clientwidth, Form1.ClientHeight); //avi dosyasini panel e yayyarak genisletme komutu//
MediaPlayer1.Play;
end;
procedure TForm1.FormActivate(Sender: TObject);
begin
button1.click ;
end;
end.