[Nyctos Kasignete]

Действительно, в пятой Delphi не пройдет. Но что за проблема — напишите свой аналог...

Код:

function TForm1.GetDelimitedText(const StringGridRow: TStrings;
                                 _Delimiter: Char): string;
var
  i: Integer;
begin
  Result := StringGridRow.Strings[0];
  for i := 1 to StringGridRow.Count - 1 do
    Result := Result + _Delimiter + StringGridRow.Strings[i];
end;

procedure TForm1.Button3Click(Sender: TObject);
var
  i, LastRow: Integer;
  SList: TStringList;
begin
  SList := TStringList.Create;
  LastRow := StringGrid1.RowCount - 1;
  try
    for i := 0 to LastRow do
      SList.Add(GetDelimitedText(StringGrid1.Rows[i], #9));
    SList.SaveToFile('C:\Directory\File.tsv');
  finally
    SList.Free;
  end;
end;