98下导入100张小图片死机（内存不足，可能），急！！！！！！！


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    showe:array [1..100] of timage;
  public
    { Public declarations }
  end;var
  Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
        i  : integer;
begin
        for i := 1 to 100 do
        begin
           showe[i]:=timage.create(self);
           showe[i].Parent := self;
          with showe[i] do
          begin
            height:=28;
            width:=28;
            top:=23+((i -1) div 10)*29;
            left:=492+((i-1) mod 10)*29;
            picture.Bitmap.LoadFromFile('C:\WINDOWS\Desktop\fen\PHOTOS\pukesmall\00.bmp');
          end;
        end;
end;动态创建100个数组，没占什么内存。但在98下一导入100张图片就死机。图片大小28*28，16位的，一张2.4K。
在XP或2000下正常，不会出现任何问题。可是我的程序必须要在98下执行呀