[NIch]

Я бы порекоммендовал создать запись вида

Код:

type
 Tf : record
  Name : string[20];//размер обязателен
  Number : string[20];
 end;
var
 ff : file of Tf;//файл записей
 f : Tf;//переменная записи

Теперь записывать и читать можно так

Код:

begin
  AssignFile(ff, 'Test.dat');
  Rewrite(ff);
  For I := 1 to StringGrid1.RowCount - 1 do
  Begin
   f.Name := StringGrid1.Cells[0,I];
   f.Number := StringGrid1.Cells[1,I];
   Seek(ff, FileSize(ff)-1);
   Write(f);
  end;
  CloseFile(ff);
end;

Код:

begin
  AssignFile(ff, 'Test.dat');
  Reset(ff);
  For I := 0 to FileSize(ff)-1 do
  Begin
   Seek(ff, i);
   read(f);   
   StringGrid1.Cells[0,I] := f.Name;
   StringGrid1.Cells[1,I] := f.Number;
  end;
  CloseFile(ff);
end;

Код писал на коленке, могут быть незначительные ошибки, но принцип ясен