var
i, j:Integer;
Str:String;
TS:TStrings;
begin
Str := '';
for i := (StringGrid1.Selection.Top) to (StringGrid1.Selection.Bottom) do begin
if (i <> StringGrid1.Selection.Top) then begin
Str := Str + #13#10;
end;
for j := 0 to (StringGrid1.Rows[i].Count - 1) do begin
if (j <> 0) then begin
Str := Str + #9;
end;
Str := Str + StringGrid1.Rows[i].Strings[j];
end;
Clipboard.AsText := Str
TS := TStringList.CReate()
TS.Text := Str;
TS.SAveToFile('c:\salida.csv');
TS.Free;
end;