работа с бинарным файлом

[Bayazet]

у меня есть след.структура данных:

  FBlob = record
    X : TCoord;
    Y : TCoord;
    NCont : integer;
  end;
  TArFBlob = array of FBlob;

мне необходимо загрузить ее в бинарный файл и соотв.выгрузить
мой код для загрузки:

Procedure INBIN(BAr : TArFBlob);
  var
    Bfile : File;
begin
    AssignFile(Bfile, 'c:\temp.bf');
    Rewrite(Bfile, SizeOf(FBlob));
       BlockWrite(Bfile, BAr, dots);   //dots - количество записей
    CloseFile(Bfile);
end;

и код для выгрузки:

Procedure OUTBIN(out BAr : TARFBlob);
var
  Bfile : File;
  i : integer;
begin
  AssignFile(Bfile, 'c:\temp.bf');
{  ShowMessage(IntToStr(SizeOf(FBLob)) + ' ' + IntToStr(SizeOf(integer)) + ' ' + IntToStr(SizeOf(TCoord)));}
  Reset(Bfile, SizeOf(FBlob));
  i := -1;
  while not Eof(Bfile) do
  begin
    i := i+1;
    SetLength(BAr, i+1);
    BlockRead(Bfile, BAr[i], SizeOf(FBlob));   
  end;
  DeleteFile('c:\temp.bf');
  CloseFile(Bfile);
end;

ругается на указатели и возвращает чушь.
пробовал вместо
BlockRead(Bfile, BAr[i], SizeOf(FBlob));
писать
BlockRead(Bfile, BAr[i].X, SizeOf(TCoord));
BlockRead(Bfile, BAr[i].Y, SizeOf(TCoord));
BlockRead(Bfile, BAr[i].NCont, SizeOf(integer));
разницы нет.
НО. вот что интересно, про запросе SizeOf(FBlob) возвращается 24.
А если отдельно запросить SizeOf(integer) и дважды SizeOf(TCoord), получается в сумме 20..
помогите разобраться, как все-таки считать?

[Stilet]

А ругается скорее всего на то что массив у тя динамический.
Попробуй в цикле его писать:

reset(Bfile); // тут размер не указывай в этом случае.
for i:=low(Bar) to high(bar) do
 write(Bfile,Bar[i]);

[Bayazet]

если кому интересно, то вот как надо было делать:
(я напутал с передаваемыми параметрами для Block[Read/Write])

procedure INBIN(BAr : TArFBlob);
  var
    i, j : integer;
    Bfile : File;
begin
  AssignFile(Bfile, 'C:\temp.crd');
  Rewrite(Bfile, SizeOf(FBlob));
  For i := 0 to Length(BAr)-1 do
    BlockWrite(Bfile, BAr[i], 1);
  CloseFile(Bfile);
end;
//********************************

function OUTBIN: TArFBlob;
var
  Bfile : File;
  count : TCoord;
  i : integer;
begin
  AssignFile(Bfile, 'C:\temp.crd');  
  Reset(Bfile, SizeOf(FBlob));
  i := -1;
  while not Eof(Bfile) do
  begin
    i := i+1;
    SetLength(result, i+1);
    BlockRead(Bfile, result[i], 1);
  end;
  CloseFile(Bfile);
end;

[Bayazet]

ну а вот этого перемещения я совсем не понял о.О