StringGrid чтение из файла

if fName <> '' then
   begin
   AssignFile(f, fName); {$I-} //Имя файла задается вызовом процедуры AssignFiie, связывающей файловую переменную с конкретным файлом.
   Reset(f); // открыть для чтения {$I+}
   if IOResult <> 0 then      // ошибка открытия
      begin
      Application.MessageBox('Файл не найден!', 'Сообщение', 0);
      exit;
      end;
   c:=0;
   // чтение из файла
   while not EOF(f) do
         begin
         Readln(F, S);
         inc(c);
         S:=StrOemToAnsi(S);
         r:=S[1];
         a:=1;   //начало строки
         n_stolb:=0;
         S1:=''; //это нужно убрать
         while a<=length(s) do //пока не конец строки
               begin
               if S[a]=r then inc(a) //если р, пропускаем
                  else   //иначе
                  begin
                  S1:='';   //число пока пустое
                  while (a<=length(S))and(S[a]<>r) do  //пока не конец строки и не р
                         begin
                         S1:=S1+S[a];//составляем число
                         inc(a);
                         end;
                  StringGrid1.RowCount:=c+1;
                  StringGrid1.Cells[n_stolb,c]:=TrimRight(S1); // удаление последних пробелов
                  text_w:=Stringgrid1.Canvas.TextWidth(S1);
                  S1:='';  //очищаем строку-число
                  inc(a);  //на 1 вперед
                  inc(n_stolb);
                  end;
               end;
         end;
   CloseFile(F);
   for i:=0 to StringGrid1.ColCount-1 do text_max(i);
   end;
end;

var
  r: TRegExpr;
  i: Integer;
begin
  for i := 0 to Memo1.Lines.Count-1 do
  begin
    r := TRegExpr.Create;
    r.InputString := Memo1.Lines[i];
    r.Expression := '^¦(.*?)¦(.*?)¦ ¦(.*?)¦ ¦ ¦(.*?)¦(.*?)¦(\d+) (.*?)$';
    if r.Exec then
    begin
      StringGrid1.Cols[0].Add(r.Match[1]);
      StringGrid1.Cols[1].Add(r.Match[2]);
      StringGrid1.Cols[2].Add(r.Match[3]);
      StringGrid1.Cols[3].Add(r.Match[4]);
      StringGrid1.Cols[4].Add(r.Match[5]);
      StringGrid1.Cols[5].Add(r.Match[6]);
      StringGrid1.Cols[6].Add(r.Match[7]);
    end;
  end;
end;