image wird nicht geladen

[wo0zy]

hallo, ich habe eine prozedur, die auf ein onclickereignis reagiert.

Code:

procedure TForm1.OnImgClick(Sender: TObject);
  begin
    If Sender is TIDImage then
    Inc(count);
    if count=1 then begin
      Sender1:=Sender;
      (Sender1 as TIDImage).Picture.LoadFromFile('Icons/'+(Sender1 as TIDImage).ID+'.ico');
      (Sender1 as TIDImage).Enabled:=false;
    end;
    if count=2 then begin
      if Sender<>Sender1 then begin
        (Sender as TIDImage).Picture.LoadFromFile('Icons/'+(Sender1 as TIDImage).ID+'.ico');
        (Sender as TIDImage).Enabled:=false;
        count:=0;
        versuche:=versuche+1;
        sleep(1000);
        if (Sender1 as TIDImage).ID=(Sender as TIDImage).ID then begin
           (Sender as TIDImage).hide;
           (Sender1 as TIDImage).hide;
           Punkte:=Punkte+1;
           StatusBar1.Panels[0].Text:='Punkte: '+IntToStr(punkte);
        end else begin
          (Sender1 as TIDImage).Enabled:=true;
          (Sender1 as TIDImage).Picture.LoadFromFile('Icons/Hintergrund2.bmp');
          (Sender as TIDImage).Enabled:=true;
          (Sender as TIDImage).Picture.LoadFromFile('Icons/Hintergrund2.bmp');
        end;
        StatusBar1.Panels[1].Text:='Versuche: '+IntToStr(versuche);
      end;
    end;
end;

diese prozedur setzt count auf 1 wenn auf das erste bild geclickt wird und auf 2 wenn auf das 2. geclickt wird. das funktioniert auch alles, nur wird nach dem 2. click das image nicht geladen, der erst der dahinter steht geht aber problemlos#

habt ihr da irgendeinen rat für mich?