[angvelem]

Примерно так:
пишем

Код:

var
  F : File;
begin
  ...
  MyStruct.ID := 'My_Table';
  AssignFile(F, 'Мой файл.txt');
  Rewrite(F, 1);
  BlockWrite(F, MyStruct.ID, Length(MyStruct.ID));
  BlockWrite(F, Таблица результатов, Length(Таблица результатов))
  CloseFile(F);
  ...
end;

читаем

Код:

var
  F : File;
begin
  ...
  AssignFile(F, 'Мой файл.txt');
  Reset(F, 1);
  BlockRead(F, MyStruct.ID, Length(MyStruct.ID));
  if MyStruct.ID <> 'My_Table' then
  begin
     MessageDlg('Что за хрень?');
     Exit;
  end;
  BlockRead(F, Куда грузить, Сколько грузить);
  CloseFile(F);
  ...
end;

Чего понаписал? сам не пойму.