Image bewegen

[Jonski]

Ich hab jetzt mal wieder ne Frage!

Ich habe diesen Quellcode geschrieben:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);

var Bitmap:TBitmap;

begin
Bitmap:=TBitmap.Create;
Bitmap.Width:=Image1.Width;
Bitmap.Height:=Image1.Height;
Image1.Picture.Graphic:=Bitmap;
with Image1.Canvas do
  begin
  pen.color:=clGreen;
  pen.width:=10;
  MoveTo(500,500);
  end
end;

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
case Key of
  VK_LEFT:  Image1.Left := Image1.Left - 10;
  VK_RIGHT: Image1.Left := Image1.Left + 10;
  VK_UP:    Image1.Top := Image1.Top - 10;
  VK_DOWN:  Image1.Top := Image1.Top + 10;
end;
end;

end.

Und jetzt habe ich das Problem ,dass sich das Image bewegt und der grüne Punkt erst garnicht erscheint.