Problem mit Struktur einer If then

[alleinherrscher]

hm mit dem Sleep Befehl in einem Timer zu arbeiten finde ich grade etwas komisch. Ich würde eher eine Schleife oder einen eigenen Thread benutzen. Kann man dein Problem nicht so lösen:

Delphi-Quellcode:

n:=Memo1.lines.count-1;

for i:=0 to n do
begin
  if i mod 5 = 0 then 
    filename:=ExtractFilePath(Application.ExeName)+'HZImage.bmp'
  else
    filename:=ExtractFilePath(Application.ExeName)+'TempImage.bmp';
  
  FadeIn(filename);
  sleep(2000);
  Fadeout(filename);

end;