FullScreen com (Esc) e ir para o proximo video automatico

[color=blue:d151655739]Ola pessoal estou aqui de novo com muintas duvidas e novamente pedindo ajuda.[/color:d151655739]
É o seguinte eu trabalho aqui na minha Lan-Games e Lan-House e com SlideShow, graças a Deus estou com bastante serviços ´fazendo SlideShow de Álbuns e fotos de casamentos aniversário e muitos outros´. O que quero é oseguinte, Quando eu crio um DVD de SideShow coloco tambem um autorun para rodar em pc que não tem nenhun player de dvd instalado, entam estou criando um player para rodar arquivo ´MPG, WMV e AVI´ quando eu termino de editar o dvd tambem crio um arquivo ´.WMV´ para ser rodado no pc pelo o payer que estou criando.
[URL=http://img221.imageshack.us/my.php?image=cgm2k8playeriv3.png][img:d151655739]http://img221.imageshack.us/img221/9440/cgm2k8playeriv3.th.png[/img:d151655739][/URL]
quem quizer da uma olhada no fonte pode baixar estar completo.
http://rapidshare.com/files/83608021/CgM2k8Player.rar

http://www.4shared.com/file/34751849/55c05530/CgM2k8Player.html

estar quaze pronto ainda falta alguns detalhes que me fizem vir aqui no forum pedir ajuda.
[color=black:d151655739]1ª =Quero colocar a opção quando usuario apertar(Alt + Enter execute a procedure fullescreen para ficar em tela inteira e apertar novamente sair da tela inteira, tambem serve apertar(ESC) e sair da tela inteira
2ª =Quero tambem colocar um botão para Minimizar somente o ´form1´ completo não serve da maneira que miniminiza para o canto da tela.
3ª =Como proceder para que toque mais de um video e da a opção para o usuario escolher qual video quer assistir e tambem repetir todos no final. [/color:d151655739]
[color=green:d151655739]Se alguem poder me ajutar deste ja agradeço e como semprem faço quando terminar tudo coloco o fonte aqui para que poça servi de ajuda para outras pessoas tambem com a mesma duvida[/color:d151655739]

Veja o fonte como estar:
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, MPlayer, StdCtrls, Buttons, GIFImg, ExtCtrls, Gauges;

type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
Image1: TImage;
Image2: TImage;
Image3: TImage;
play: TSpeedButton;

SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
SpeedButton4: TSpeedButton;
SpeedButton5: TSpeedButton;
tela_inte: TSpeedButton;
tela_norm: TSpeedButton;
playcopia: TSpeedButton;
Gauge1: TGauge;
Timer1: TTimer;
// copy: TSpeedButton;
procedure FormCreate(Sender: TObject);
procedure FormMouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
procedure Image2Click(Sender: TObject);
procedure Image3Click(Sender: TObject);
procedure Image2MouseEnter(Sender: TObject);
procedure Image3MouseLeave(Sender: TObject);
procedure tela_inteClick(Sender: TObject);
procedure tela_normClick(Sender: TObject);
procedure playClick(Sender: TObject);
procedure playcopiaClick(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure SpeedButton4Click(Sender: TObject);
procedure SpeedButton5Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure SpeedButton1Click(Sender: TObject);
procedure FormShow(Sender: TObject);

private
procedure tocaravi;
procedure fullscreen;
procedure posi;
procedure cicero;
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

uses Unit2;

{$R *.dfm}


{ TForm1 }

procedure TForm1.tocaravi;
begin
MediaPlayer1.Filename := ´PhotoStory1.wmv´;
MediaPlayer1.Open;
MediaPlayer1.Display := form2.Panel1;
MediaPlayer1.DisplayRect := form2.Panel1.ClientRect;
MediaPlayer1.Play;
end;

procedure TForm1.fullscreen;
var
R : TRect;
begin
form2.Refresh;
form2.Borderstyle := bsNone;
SystemParametersInfo(SPI_GETWORKAREA, 0, @R,0);
form2.SetBounds(R.Left, R.Top, R.Right-R.Left, R.Bottom-R.Top);
MediaPlayer1.Display := Form2;
Form2.Image1.Visible:= false;
MediaPlayer1.DisplayRect := form2.ClientRect;
end;

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

procedure TForm1.Image2MouseEnter(Sender: TObject);
begin
Image3.Visible := true;
end;

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

procedure TForm1.Image3MouseLeave(Sender: TObject);
begin
Image2.Visible := true;
Image3.Visible := false;
end;

procedure TForm1.playClick(Sender: TObject);
begin
playcopia.Visible := true;
form2.Show;
form2.Refresh;
tocaravi;
play.Visible := false;
playcopia.Visible := true;
tela_inte.Visible:= true;
tela_norm.Visible:= false;
Timer1.Enabled := true;
Gauge1.Hint := MediaPlayer1.FileName;
end;

procedure TForm1.playcopiaClick(Sender: TObject);
begin
MediaPlayer1.Play;
end;

procedure TForm1.posi;
begin
Form1.Top := 460;
Form1.Left := 260;
end;

procedure TForm1.SpeedButton1Click(Sender: TObject);
begin
Form1.Hide;
end;

procedure TForm1.SpeedButton2Click(Sender: TObject);
begin
MediaPlayer1.Pause;
end;

procedure TForm1.SpeedButton3Click(Sender: TObject);
begin
MediaPlayer1.Stop;
end;

procedure TForm1.SpeedButton4Click(Sender: TObject);
begin
MediaPlayer1.Back;
end;

procedure TForm1.SpeedButton5Click(Sender: TObject);
begin
MediaPlayer1.Step;
end;

procedure TForm1.tela_inteClick(Sender: TObject);
begin
fullscreen;
tela_norm.Visible := true;
tela_inte.Visible := false;
end;

procedure TForm1.tela_normClick(Sender: TObject);
begin
form2.BorderStyle := bsNone ;
form2.Top := 200;
form2.Left:= 400;
//form2.Right:= 8;
form2.Refresh;
Form2.Image1.Visible:= true;
form2.Width := 640;
form2.Height:= 480;
Form2.BorderStyle :=bsNone;
MediaPlayer1.Display := Form2.Panel1;
MediaPlayer1.DisplayRect := form2.panel1.ClientRect;
try
Form2.BitBtn1Click(sender);
finally
tela_inte.Visible := true;
tela_norm.Visible := false;
end;
end;


procedure TForm1.Timer1Timer(Sender: TObject);
begin
Timer1.Interval := 100;
Gauge1.MaxValue := MediaPlayer1.Length;
Gauge1.Progress := MediaPlayer1.Position;
end;

procedure TForm1.cicero;
begin
playcopia.Visible := true;
form2.Show;
form2.Refresh;
tocaravi;
play.Visible := false;
playcopia.Visible := true;
tela_inte.Visible:= true;
tela_norm.Visible:= false;
Timer1.Enabled := true;
Gauge1.Hint := MediaPlayer1.FileName;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowPos(Form1.handle, HWND_TOPMOST, Form1.Left,
Form1.Top,Form1.Width, Form1.Height, 0);
posi;
end;

procedure TForm1.FormMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if SSLeft in shift then
begin
ReleaseCapture();
//Form1->WindowState = wsMaximized;
Perform(WM_SYSCOMMAND, 61458, 1);
end;
end;

procedure TForm1.FormShow(Sender: TObject);
begin
cicero;
end;

end.

=====================================
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Buttons, GIFImg, ExtCtrls;

type
TForm2 = class(TForm)
BitBtn1: TBitBtn;
Panel1: TPanel;
Image1: TImage;
SpeedButton1: TSpeedButton;
SpeedButton2: TSpeedButton;
SpeedButton3: TSpeedButton;
procedure BitBtn1Click(Sender: TObject);
procedure FormDblClick(Sender: TObject);
procedure Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
procedure SpeedButton1Click(Sender: TObject);
procedure SpeedButton2Click(Sender: TObject);
procedure SpeedButton3Click(Sender: TObject);
procedure Panel1DblClick(Sender: TObject);
procedure Panel1Click(Sender: TObject);
procedure FormClick(Sender: TObject);
procedure FormShow(Sender: TObject);
private
procedure centra;
{ Private declarations }
public
{ Public declarations }
end;

var
Form2: TForm2;

implementation

uses Unit1;

{$R *.dfm}

{ TForm2 }

procedure TForm2.BitBtn1Click(Sender: TObject);
begin
centra;
end;

procedure TForm2.centra;
var
r : TRect;
osv : TOSVersionInfo;
begin
//osv.EdwOSVersionInfoSize := sizeof(osv);
GetVersionEx(osv);
if osv.dwPlatformId = VER_PLATFORM_WIN32_WINDOWS then
begin
SystemParametersInfo(SPI_GETWORKAREA, 0, @r, 0);
Left := ((r.right - r.left) - Width) div 2;
Top := ((r.bottom - r.top) - Height) div 2;
end
else
begin
Left := (GetSystemMetrics(SM_CXSCREEN) - Width) div 2;
Top := (GetSystemMetrics(SM_CYSCREEN) - Height) div 2;
end;
end;

procedure TForm2.FormClick(Sender: TObject);
begin
Form1.Show;
end;

procedure TForm2.FormDblClick(Sender: TObject);
begin
Form1.tela_normClick(sender);
end;

procedure TForm2.FormShow(Sender: TObject);
begin
Form1.tela_normClick(sender);

end;

procedure TForm2.Image1MouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if SSLeft in shift then
begin
ReleaseCapture();
//Form1->WindowState = wsMaximized;
Perform(WM_SYSCOMMAND, 61458, 1);
end;

end;

procedure TForm2.Panel1Click(Sender: TObject);
begin
Form1.Show;
end;

procedure TForm2.Panel1DblClick(Sender: TObject);
begin
Form1.tela_inteClick(sender);
end;

procedure TForm2.SpeedButton1Click(Sender: TObject);
begin
Application.Minimize;
end;

procedure TForm2.SpeedButton2Click(Sender: TObject);
begin
Form1.tela_inteClick(sender);
end;

procedure TForm2.SpeedButton3Click(Sender: TObject);
begin
Application.Terminate;
end;

end.