[Assistant]

Код:

var
  i, N: Integer;
  list: TStringList;
begin
  n := 5;
  if OpenDialog1.Execute then
  begin
    list := TStringList.Create;
    try
      list.LoadFromFile(OpenDialog1.FileName);
      StrinGgrid1.RowCount := list.Count-N;
      for i:=N to list.Count-1 do
      begin
        StringGrid1.Rows[i-N].CommaText := list.Strings[i];
      end;
      list.Free;
    finally
    end;
  end;
end;