TStringList *file = new TStringList();
int col,row;
file->Clear();
for(row=0;row<StringGrid1->RowCount;row++)
{
AnsiString linea="";
for(col=0;col<StringGrid1->ColCount;col++)
linea+=StringGrid1->Cells[col][row]+",";
linea.Delete(linea.Length(),1);
file->Append(linea);
}
SaveDialog1->Title="Guardar tabla como:";
if(SaveDialog1->Execute())
file->SaveToFile(SaveDialog1->FileName);