Bilderfolge mit mausklick

[Frankfurter_Bub]

Hallo Programmiergemeinde

habe folgendes Problem:
auf einem server kann man sich bilder anschauen, wenn man in diesem ordner ist, wird das nächste bild erst geladen, wenn man das momentane bild anklickt, hätte gern n programm geschrieben, was mir die klickerei abnimmt und die ganze sache zur diashow wird, aber leider klappt es nicht -.-

könnt ihr bitte mal schaun, was ich falsch gemacht hab?? vielen danke im voraus

Delphi-Quellcode:

procedure TDiashow.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
var x: integer;
begin
 x:=0;
  if (key = $21) then      {bild hoch}
   SetCursorPos(600,500);
   while x>0 do
   Mouse_Event(MOUSEEVENTF_LEFTDOWN,0,0,0,0);
   Mouse_Event(MOUSEEVENTF_LEFTUP,0,0,0,0);
   x:= x+1;
   Sleep(Millisekunden);


  if (key = $22) then Close; {bild runter}


end;
end.

liebe grüße