Animation von TImages

[ontorius]

ich habe für den BitBlt-Befehl folgende Zeilen geschrieben:

Delphi-Quellcode:

var
  Form1: TForm1;
  b:integer;
  bg:TBitmap;
  const x=10;
        y=10;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender:TObject);
begin
  bg:=TBitmap.Create;
  bg.PixelFormat := pf24Bit;
end;

procedure TForm1.START1Click(Sender: TObject);
begin
  timer2.Enabled:=false;
  form1.DoubleBuffered:=true;

  bg.loadfromfile('.\pics\trasch24b.bmp');
  Bitblt(paintbox1.Canvas.Handle,0,555,1036,50,bg,0,0,srccopy);
  paintbox1.Canvas.Draw(0,555,bg);

  image2.picture.loadfromfile('.\pics\stehen_1.bmp');
  image5.Picture.LoadFromFile('.\pics\door.bmp');
end;

beim compilieren wird das Problem von "inkompatiblen Typen: 'HDC' und 'TBitmap'" angezeigt.
Mit der Paintbox und den Positionsparametern in der BitBlt-Prozedur müsste alles richtig sein, dass heißt, ich habe ein Problem mit der Variablen "bg". Muss man dafür ein bestimmtes Bild-Format haben oder sonst irgendwas beachten?