[Scooter]

Здравствуйте! Не могу понять в чем ошибка: описываю свой тип TUpdateInf присваиваю переменной этого типа значения записываю все это в файл с помошью TFileStream потом читаю и вывожу все это на экран с помошью ShowMessage, одно из двух либо выходит абракадабра либо вылетает ошибка Access violation at address... В чем обшибка подскажите?

Код:

  
private
    { Private declarations }
  public
    { Public declarations }
  end;

TUpdateInf = Record
             FName: Array[0..999] of String;
             FUpd: Array[0..999] of Boolean;
             End;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.BWriteClick(Sender: TObject);
var
I:SmallInt;
F:TFileStream;
Inf:TUpdateInf;
begin
For I:=0 to 9 do
    Begin
    Inf.FName[i]:='test' + inttostr(i);
    Inf.FUpd[i]:=True;
    End;

F:=TFileStream.Create('C:\1.txt',FmCreate);
F.WriteBuffer(Inf,SizeOf(TUpdateInf));
F.Free;
end;

procedure TForm1.BReadClick(Sender: TObject);
var
I:SmallInt;
F:TFileStream;
Inf:TUpdateInf;
begin
F:=TFileStream.Create('C:\1.txt',FmOpenRead);
F.ReadBuffer(Inf,SizeOf(TUpdateInf));
F.Free;

For i:=0 To 9 do
    Begin
    ShowMessage(Inf.FName[i]);
    End;

end;