Problem mit Struktur einer If then

[christian_u]

Also ich glaub nicht das da irgendwas hängenbleibt wenn dein Bild 800 pixel breit ist wird die Schleife nur 800x durchlaufen, da mit dem debugger durchsteppen zu wollen ist quatsch.

Weiterhin war deine Idee mit dem Timer vom Anfang recht gut anders lässts sichs eigentlich nur mit threads lösen wenn dein Programm reaktionsfähig bleiben soll und das ist sicher etwas overkill für dich als Anfänger.

var
ImageFile: string;

procedure Timerproc(Sender : TObject);
begin
if Imagefile <> '' then
Fadeout(ImageFile);
if PicCount >= Form1.Memo1.Lines.Count-1 then
PicCount := 0
else
Inc(PicCount);

if (PicCount mod 5) = 0 then
ImageFile := ExtractFilePath(Application.ExeName)+'HZImage.bmp'
else
ImageFile := ExtractFilePath(Application.ExeName)+'TempImage.bm p';
JpegToBmp(Form1.Edit1.Text + Form1.Memo1.Lines[PicCount]);
FadeIn(ImageFile);
end;

So müsste es eigentlich klappen,