Запись содержимого TStringGrid в текстовый файл

//---------------------------------------------------------------------------
#include <vcl.h>
#pragma hdrstop
#include<math.h>
#include "Unit1.h"
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma resource "*.dfm"
TForm1 *Form1;
int w=3, k, i, j, l, h, h1;
double **a, s, *b, t, temp;
bool ka=true;
void GaussMod ()
{a= new double *[w];
for(int i=0;i<w;i++)
{a[i]=new double [w];}
b= new double [w];
double *x=new double [w];
for(int i=0;i<w;i++)
{for(int j=0;j<w;j++)
{a[i][j]=StrToFloatDef(Form1->StringGrid1->Cells[j][i], 0);}
b[i]=StrToFloatDef(Form1->StringGrid3->Cells[0][i], 0);}
/*здесь проверка на линейную зависимость*/
for (int q = 0; q < w-1; q++)
{for (int u=q+1; u<w; u++)
{ka=false; h=h1=0;
for (int y=0; y<w; y++)
{h=a[u][y]-a[q][y];
if (h!=h1 && y!=0) {break;}
h1=h;
if (y==w-1 && ka==false)
{ShowMessage("Линейная зависимость, поэтому решать не хочу.");
return;}}}}
/**/
for (k = 0; k <= w-2; k++)
{/*от сих*/
temp=l=0;
for (int f = w-1; f >=k; f--)
{if (fabs(a[f][k])>fabs(temp))
{temp=a[f][k]; l=f;}}
for (int u=0; u < w; u++)
{temp=a[k][u];
a[k][u]=a[l][u];
a[l][u]=temp;}
temp=b[k];
b[k]=b[l];
b[l]=temp;
/*до сих идет выбор выбор наибольшего элемента столбца*/
for (i=k+1; i<= w-1; i++)
{if (a[k][k]==0){
ShowMessage("Не умею делить на ноль, а на главной диагонали 0.");
return;}
t=a[i][k]/a[k][k];
b[i]=b[i]-(t*b[k]);
for (j=k+1; j<=w-1; j++)
{a[i][j]=a[i][j]-(t*a[k][j]);}}}
for (k = w-1; k >=0; k--) {
s=0;
for (j=k+1; j <= w-1; j++) {
s=s+(a[k][j]*x[j]);}
x[k]=(b[k]-s)/a[k][k];}
for (i = 0; i < w; i++) {Form1->StringGrid2->Cells[0][i]=x[i];}
delete [ ] b;
delete [ ] x;
for(int i=0;i<w;i++)
delete [ ]a[i];
delete [ ] a;
}
 
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner) {}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{Application->Terminate();}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{w=StrToInt(Edit1->Text);
StringGrid1->RowCount=w;
StringGrid1->ColCount=w;
StringGrid2->RowCount=w;
StringGrid3->RowCount=w;}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{GaussMod ();}
//---------------------------------------------------------------------------
 void __fastcall TForm1::FormMouseDown(TObject *Sender, TMouseButton Button,
      TShiftState Shift, int X, int Y)
{if(Button == mbLeft)
{long SC_DRAGMOVE = 0xF012;
ReleaseCapture();
SendMessage(Form1->Handle, WM_SYSCOMMAND, SC_DRAGMOVE, 0);}}

for(int i = 0 ; i<StringGrid2->RowCount ; i++)   
  {     
    Table1->Strings[i] = StringGrid2->Rows[i]->DelimitedText  ; //присваиваем вспомог. табл. (построчно) обработанные данные с StringGrid2   
  } 
Table1->SaveToFile(file1) ;   // просто сохраняем.

  AnsiString file1 = "с:\\temp.txt" ;

TStringList *Table1 = new TStringList ;

void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{  
  delete Table1 ;  
}