关于动行期创建Timage对象的显示问题

Question

unit graphic;interfaceuses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls, Buttons;type
  TForm1 = class(TForm)
    Image1: TImage;
    BitBtn1: TBitBtn;
    procedure BitBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.BitBtn1Click(Sender: TObject);
Var MyImage:TImage;
begin
  MyImage:=TImage.Create(nil);
  MyImage.AutoSize:=True;
  MyImage.Picture.Bitmap.Width := 30;
  MyImage.Picture.Bitmap.Height:= 30;
  MyImage.Left:=432;
  MyImage.Top:=80;
  MyImage.Picture.LoadFromFile
  ('wzq\Black.bmp');
 MyImage.Visible:=True;
end;
end.
///////
为什么我单击Botton1时窗体上没有显示MyImage图像的内容？
请诸位指教