Как считывать из текстового файла, пропуская первую строку? - Delphi - Ответ 11242113

procedure TF_knopka.fZagrClick(Sender: TObject);                   // Закрузка данных
var ft:TextFile;
    a,i,j:longint;
    st:string;                                                // Строчка
begin
for i:=0 to StringGrid1.RowCount-1 do
    for j:=0 to StringGrid1.ColCount-1 do StringGrid1.Cells[j,i]:='';     // Обнуление таблицы
StringGrid1.RowCount:=1;
 
if (OpenDialog1.Execute)                                                    // Попытка открытия
   then begin
        AssignFile(ft,OpenDialog1.FileName);
        Reset(ft);                                                       // Обнуление
        while not eof(ft) do                                             // Пока не конец файла
              begin
              readln(ft,st);                                              // Считываем файл по st - строчкам
              j:=0;
              for i:=0 to length(st) do                                   // От 1 до последней строчки ( цикл )
                  if st[i]=chr(9)                                         // Проверка на табуляцию
                     then j:=j+1
                     else StringGrid1.Cells[j,StringGrid1.RowCount-1]:=StringGrid1.Cells[j,StringGrid1.RowCount-1]+st[i];  // После каждой табуляции новый столбик
              StringGrid1.RowCount:=StringGrid1.RowCount+1;               // Переход на новую строку
              end;
        StringGrid1.RowCount:=StringGrid1.RowCount-1;  // Задаётся кол-во строчек
        StringGrid1.FixedRows:=1;      // Фиксиррованная строчка до текста
        CloseFile(ft);                 // Закрытие файла
        end;
end;