Bitmap

[hvh]

Yust a simple test procdure
I want the image to change color each time in the loop.
But it shows only the color of the last run.
How should I manage this.

procedure TForm1.VulRechthoek(Sender: TObject);
var I     :Integer;
begin
  for I := 1 to 10 do begin
    Memo1.Lines.Add('Tekst');
    Sleep(500);
    MyBitmap.Canvas.Brush.Color  := 92000+10*I;
    MyBitmap.Canvas.Fillrect(0,0,MyBitmap.Width,MyBitmap.Height);
    Image1.Canvas.Draw( 0, 0, MyBitmap);
  end;
end;           

[eny]

Code: [Select]

procedure TForm1.VulRechthoek(Sender: TObject);
var I     :Integer;
begin
  for I := 1 to 10 do begin
    Memo1.Lines.Add('Tekst');
    MyBitmap.Canvas.Brush.Color  := 92000+10*I;
    MyBitmap.Canvas.Fillrect(0,0,MyBitmap.Width,MyBitmap.Height);
    Image1.Canvas.Draw( 0, 0, MyBitmap);
    Application.ProcessMessages;        // <--------------------
    Sleep(500);
  end;
end;         


[hvh]

Your solution works.
Thanks for your work!