[<<D>>]

Рисование на форме:

procedure TForm1.FormPaint(Sender: TObject);
var bmp1:TBitmap;
begin
bmp1:=TBitmap.Create;
bmp1.LoadFromFile('C:\123.bmp');
canvas.Draw(0,0,bmp1);
end;

...и всё рисует.
Чтобы перерисовать пиши RePaint;