NewWorld, вы имели в виду: поставить в качестве символа-разделителя табуляцию вместо запятой??? =)
Дело в том, что свойство CommaText в некотором смысле производное от "более общего" свойства — DelimitedText, который может использовать любой символ в качестве разделителя.
Код:
procedure TForm1.BitBtn1Click(Sender: TObject);
var
i, LastRow: Integer;
SList: TStringList;
begin
SList := TStringList.Create;
LastRow := StringGrid1.RowCount - 1;
try
for i := 0 to LastRow do
begin
StringGrid1.Rows[i].Delimiter := #9;
SList.Add(StringGrid1.Rows[i].DelimitedText);
end;
SList.SaveToFile('C:\Directory\File.tsv');
finally
SList.Free;
end;
end;