Как сохранить INI через SaveDialog ?

    TStringList* Temp1 = new TStringList;
    Temp1->Add("[COMMON]");
    Temp1->Add("max_comp=");
    Temp1->Add("calc_comp=");
    Temp1->Add("cnt_calccomp=");
    Temp1->Add("cnt_constcomp=");
    Temp1->Add("fxp_enable=");
    Temp1->Add("graduate_select=");
    Temp1->SaveToFile(ExtractFilePath(Application->ExeName)+".ini");

TIniFile *Ini =new TIniFile(ExtractFilePath(Application->ExeName));
TStringList* Sections = new TStringList;
Ini->ReadSection("name", Sections);
  for (int i = 0; i < Sections->Count; i++)
  {
   Ini->WriteString(CountList, StringGrid1->Cells[0][i + 1],StringGrid1->Cells[1][i + 1]);
  }

TIniFile *Ini = new TIniFile(Form3->temp_name);

    if (Save->Execute())
{
    CreateFile(Save->FileName);
    TIniFile *Ini = new TIniFile(Save->FileName);
}

       CreateFile(SaveDialog1->FileName.c_str(), GENERIC_READ | GENERIC_WRITE , 0,
       NULL, CREATE_ALWAYS , 0, NULL); 
       TIniFile *Ini = new TIniFile(SaveDialog1->FileName);
 
       Ini->WriteInteger("ScaleADC LeftW","LeftW.inSourceDelta",LeftW.inSourceDelta);/// на этой строке ошибка

    TIniFile *ini;
    if(SaveDialog1->Execute())
    {
        ini = new TIniFile(SaveDialog1->FileName); // работай с ini дальше
    }