Como desenhar um bitmap num form?

Var
Form1: TForm1;
Bmp: TBitmap;
implementation
{$R *.DFM}


procedure TForm1.FormCreate(Sender: TObject);
begin
Bmp:=TBitmap.Create;
Bmp.Loadfromfile('c:windowsnuvens.bmp');
end;

procedure TForm1.TForm1.FormPaint(Sender: TObject);
begin
Canvas.Draw(50,50,Bmp);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Bmp.Free;
end;