[Der_G()RuNu(h]

нет... стоп, уважаемые, у меня немного не такая система.
у меня в текстовый файл записывается ряд действий, но для того, чтобы эти действия лучше было просматривать, я сделал таблицу, в которую хочу загонять этот текстовый файл в 2 столбца (дата и событие). я написал один код, но выдает ошибку: "Invalid numeric input"

Вот код:

Код:

procedure THistoryForm.BtnOpenClick(Sender: TObject);
var
  f: TextFile;
  s: string;
  i,j: integer;
begin
  AssignFile(f,'D:\Pathfinder.txt');
  Reset(f);
  readLn(f, i,j);
  SG.RowCount:=i;
  SG.ColCount:=j;
  for i:=1 to SG.RowCount-1 do
    begin
      for j:=1 to SG.ColCount-1 do
        begin
          read(f,s);
          SG.Cells[j,i]:= s;
        end;
      readln(f);
    end;
  CloseFile(f);
end;