También puedes cargarlo de esta manera:
Código Delphi
[-]procedure TfrMenu.FormCreate(Sender: TObject);
begin
bmpFondo := TBitmap.Create;
BmpFondo.LoadFromFile(ExtractFilePath(Application.ExeName)+'Xxxxx.bmp');
end;
procedure TfrMenu.FormPaint(Sender: TObject);
begin
Canvas.Draw( 130, 200, bmpFondo );
end;
procedure TfrMenu.FormDestroy(Sender: TObject);
begin
bmpFondo.Free;
end;
Un Saludo.