Az miért van hogyha kirajzolok egy Bitmapot a Canvasra az OnPaint eseményben, a bitkép módosítása után, még az Invalidate parancsra sem történik semmi?

Ha még a Form.OnCreate eseményben módosítom a bitképet, akkor működik, de csak onnan. Még GDI alatt néha össze is jön amúgy is, de GDI+ esetén teljesen esélytelen.

Van egy ilyen kis kódom:

procedure TForm.ButtonClick(Sender: TObject);

begin

Bitmap.Canvas.Rectangle(50,50,200,200);

Invalidate; //semmi sem történik

end;

procedure TForm.FormCreate(Sender: TObject);

begin

DoubleBuffered:=true;

Bitmap:=TBitmap.Create;

Bitmap.Canvas.Ellipse(60,60,120,120);

end;

procedure TForm.FormPaint(Sender: TObject);

begin

Canvas.Draw(0,0,Bitmap);

end;

procedure TForm.FormDestroy(Sender: TObject);

begin

Bitmap.Free;

end;