我是这样写的:
procedure TForm1.FormShow(Sender: TObject);
var
   Bitmap : TBitmap;
begin
  Bitmap := TBitmap.Create;
  try
    Bitmap.LoadFromFile('G:\课件背景图\22.bmp');
    Form1.Canvas.Draw(0,0,BitMap);
  finally
    Bitmap.Free;
  end;
end;
但是没有效果,请大家给出正确代码。还想请教一下,如果我的图片是JPG类型的,应该怎么办,用TMetafile吗?还是??