Image bewegen

[Jonski]

Helft mir mal bitte.

Diese Bitmap wird nur als weißer Balken angezeigt:

Delphi-Quellcode:

//Bitmap3
  Bitmap3:=TBitmap.Create;
  try
    Bitmap3.Width:=Image3.Width;
    Bitmap3.Height:=Image3.Height;
    Bitmap3.Canvas.pen.color:=clBlue;
    Bitmap3.Canvas.pen.width:=10;
    Bitmap3.Canvas.Rectangle(0,0,5,1000);
    Image3.Picture.Assign(Bitmap3);
  finally
    Bitmap3.Free;
  end;

  with Image3 do
    begin
    transparent:=true;
    end;