اشکال در اشاره گر TMemoryStream

[ابوالفضل عباسی]

سلام خدمت دوستان.
بنظر شما کد زیر مشکلی دارد؟

برنامه درست کار میکند اما زمانی که برنامه در حافظه پردازشی انجام میدهد،تصویر خروجی(image2) در تایمر درست کار نمی کند.
برای رفع این مشکل چه باید کرد؟

باتشکر

..

.

var

  a:array of ^TMemoryStream;

  b:array of TMemoryStream;

















procedure TForm1.button1onclick(sender:Tobject);

var i:integer;

begin

  for i:=1 to 10 do

  begin

    SetLength(a,i+1);

    SetLength(b,i+1);

    b[i]:=TMemoryStream.Create;

    Image1.picture.bitmap.savetostream(b[i]);

    b[i].position:=0;

    a[i]:=@b[i];

    image2.picture.bitmap.LoadFromStream(a[i]^);

  end;

  //حذف سلول پنجم

  for i := 5 to 9 do

  begin

    a[i]:=a[i+1];

  end;

  Timer1.Enabled:=true;

end;





procedure TForm1.Timer1Timer(Sender: TObject);

begin

  image2.picture.bitmap.LoadFromStream(a[6]^);

  Timer1.Enabled:=false;

end;