Schonmal was von Codeeinrückung gehört
?
Du hast da ziemlich viele unnütze Blöcke:
Delphi-Quellcode:
begin if counter<=c637n Then begin
Form1.Image12.Picture := nil;
Form1.Label12.font.color:=CLgreen;
Form1.Label12.Caption:=''
end;
begin if counter=c637b Then begin
Form1.Image12.Picture.LoadFromFile(PChar(ExtractFilePath(ParamStr(0))) + 'Chipblau.bmp'); //////////die Bilder erscheinen jedesmal
Form1.Label12.font.color:=CLWhite;
end;
[...]
end;
end;
Macht aber wahrscheinlich keine Performanceeinbußen. LoadFromFile benötigt jedoch
IMHO viel Zeit. Lade die drei Bilder lieber am Anfang des Programms in drei TBitmaps.