[Змей]

При попытке присвоения данных из файла(через FileStream) динамическому массиву, вылетает ошибка. Если массив обычный,то работает все нормально, что сделать что бы и с динамическим было тоже самое?
Текст программы:

Код:

var
  Form1: TForm1;
  A: Tfilestream;
  data: array of integer;
  i: integer;

procedure TForm1.Button1Click(Sender: TObject);
begin
setlength(data,100);
if opendialog1.Execute then
A:=Tfilestream.Create(opendialog1.FileName, fmOpenRead);
A.Read(data,sizeof(data));
for i:=0 to 99 do
begin
memo1.Lines.Add(inttostr(data[i]));
end;
end;

Причем ошибка вылетает на строчке с memo: