Programm läuft eindeutig zu langsam

[Khabarakh]

Wenn ich deinen Code nicht völlig missverstanden habe, sollte es etwa so gehen:

Delphi-Quellcode:

TForm1 = [...]
private
  BlueBit, YellowBit, PinkBit: TBitmap;

[...]

//OnCreate

  BlueBit := TBitmap.Create;
  BlueBit.LoadFromFile( ... );
  YellowBit := 
[...]

  if counter<=c637n then
  begin
    Form1.Image12.Picture := nil;
    Form1.Label12.Font.Color := clGreen;
    Form1.Label12.Caption := ''
  end;
  if counter=c637b then
  begin
    Form1.Image12.Picture.Draw(0, 0, BlueBit);
    Form1.Label12.Font.Color := cLWhite
  end;

[edit] Ok, dann vergiss meine Idee [/edit]