[[seoane]]

Casi me da verguenza sugerir algo tan simple , pero puede que te sirva:

Código Delphi [-]
procedure Guardar(Archivo: String; Grid: TStringGrid);
var
  i: integer;
begin
  with TStringList.Create do
  try
    for i:= 0 to Grid.RowCount - 1 do
      Add(Grid.Rows[i].CommaText);
    SaveToFile(Archivo);
  finally
    Free;
  end;
end;

// Por ejemplo
Guardar('C:\Archivo.txt',StringGrid1);