Чтение из файла

procedure TForm1.Button1Click(Sender: TObject);
const
  Fn1 = 'file1.txt';
  Fn2 = 'file2.txt';
var
  F1, F2 : TextFile;
  i, j, Num : Integer;
begin
 
  AssignFile(F1, Fn1);
  Rewrite(F1);
 
  for i := 1 to 10 do begin
    if i > 1 then Writeln(F1);
    for j := 1 to 10 do begin
      Write(F1, j);
      if j < 10 then Write(F1, #9);
    end;
  end;
 
  AssignFile(F2, Fn2);
  Rewrite(F2);
 
  Reset(F1);
  i := 0;
  while not Eof(F1) do begin
    //Читаем первый элемент строки - т. е. значение из первого столбца.
    //Это значение мы не будем использовать. Операция выполняется только
    //для того чтобы переместить файловый указатель к следующему элементу -
    //т. е. к значению второго столбца.
    Read(F1, Num);
    //Читаем второй элемент - это значение во втором столбце.
    if Not Eof(F1) then begin
      Inc(i);
      Read(F1, Num);
      if i > 1 then Writeln(F2);
      Write(F2, Num);
    end;
    //Выполняем переход к следующей строке.
    if Not Eof(F1) then Readln(F1);
  end;
 
  CloseFile(F1);
  CloseFile(F2);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
List1,List2:TStringList;
i:integer;
begin
List1:=TStringList.Create;
List2:=TStringList.Create;
 
 
List1.LoadFromFile('1.txt');
 
StringGrid1.RowCount:=List1.Count;
 
for i:=0 to List1.Count-1 do
begin
 List2.DelimitedText:=List1[i];
 if List2.Count>StringGrid1.ColCount then
 StringGrid1.ColCount:=List2.Count;
 
 StringGrid1.Rows[i].Assign(List2);
end;
 
List2.Free;
List1.Free;
end;