Memory - zweites bild wird nicht aufgedeckt

[Tigermoon]

Hallo

mein programm friet ein bevor das bild aufgedeckt wird
hab eine pause von 1 sek drin

warum?

ich mache die pause damit man das zweite bild sieht (in meinem fall ehr sehen sollte)

Delphi-Quellcode:

 procedure TMemoryfeld.aufdeckenOnClick(Sender:TObject); 
var 
BildNummer : integer; 
begin 

  //Array (TImage) Bild = Bilder auf der Fläche (insgesamt 24) 
  //Array (Integer) Bilder = Name des sich darunterbefindenden Bildes (bild 1.JPG - 12. JPG) 

  //Bildernummer des angeklickten Bildes 
  BildNummer := (Sender as TImage).Tag; 
  
  //angeklicktes Bild aufdecken 
  Bild[BildNummer].Picture.LoadFromFile(inttostr(bilder[BildNummer])+'.JPG'); 
  bild[bildnummer].Enabled := false; 

  //Anzahl umgedrehte Bilder 
  turns := turns + 1; 
  //turns_anz.caption := inttostr(turns);   {ausgabe zum test} 

  //Erstes Bild 
  if turns = 1 then 
  begin 
    pic1_turned := BildNummer; 
    //pic1.Caption :=  inttostr( Bildnummer );    {ausgabe zum test} 
  end; 

  //Zweites bild 
  if turns = 2 then 
  begin 
    pic2_turned := BildNummer; 
    //pic2.Caption :=  inttostr( Bildnummer );      {ausgabe zum test} 

    sleep(1000);  <<--- hier 

    // bilder sind die gleichen 
    if bilder[pic1_turned] = bilder[pic2_turned] then 
    begin 
       bild[pic1_turned].Visible := false; 
       bild[pic2_turned].Visible := false; 
       turns := 0; 
    end; 

    //bilder sind unterschiedlich 
    if bilder[pic1_turned] <> bilder[pic2_turned] then 
    begin 
       bild[pic1_turned].Picture.LoadFromFile('back.JPG'); 
       bild[pic1_turned].Enabled := true; 
       bild[pic2_turned].Picture.LoadFromFile('back.JPG'); 
       bild[pic2_turned].Enabled := true; 
       turns := 0; 
    end; 

  end; 
end;