弄是什么意思?

就是把一个bmp文件的图片画在form1.canvas上

type
  TForm1 = class(TForm)
    procedure FormDestroy(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormPaint(Sender: TObject);
  private
    { Private declarations }
    Bmp : TBitmap; //////////////// !!!
  public
    { Public declarations }
  end;


//...........


procedure TForm1.FormCreate(Sender: TObject);
begin
  Bmp := TBitmap.Create;
  Bmp.LoadFromFile('c:\test.bmp');
end;

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

procedure TForm1.FormDestroy(Sender: TObject);
begin
  Bmp.Free;
end;

谢谢