Запись состояний элементов VCL

for (int i = 0; i < ListBox3->Count; i++) {
  Ini->WriteString("Logs",IntToStr(i),ListBox3->Items->Strings[i]);
 
    }

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Memo1->Lines->LoadFromFile("log.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        for (int i = 0; i < ListBox3->Count; i++)
                Memo1->Lines->Add(ListBox3->Items->Strings[i]);
        Memo1->Lines->SaveToFile("log.txt");
}

Ini->WriteString("Logs"+"сюда дописывай индекс или дату изменения",IntToStr(i),ListBox3->Items->Strings[i]);

void __fastcall TForm1::FormCreate(TObject *Sender)
{
        Memo1->Lines->LoadFromFile("log.txt");
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
        Memo1->Lines->Add(Now());
        for (int i = 0; i < ListBox3->Count; i++)
                Memo1->Lines->Add(ListBox3->Items->Strings[i]);
        Memo1->Lines->SaveToFile("log.txt");
}

void __fastcall TForm1::Button1Click(TObject *Sender)
{
   
if (Form1->RadioGroup1->ItemIndex==0)
{
Memo1->Lines->Add("текст");
Memo1->Lines->SaveToFile("logfile.txt");
}
 
if (Form1->RadioGroup1->ItemIndex==1)
{
Memo1->Lines->Add("текст1");
Memo1->Lines->SaveToFile("logfile.txt");
}
   }

//---------------------------------------------------------------------------
bool SaveControlState( TObject *ctrl )
{
const String FileName = "D:\\111\\memosave.txt";
 
TStringList *sl = new TStringList();
if( FileExists( FileName ) )
  sl->LoadFromFile( FileName );
 
sl->Add( " Tame = " + Now().FormatString( "hh:mm:ssss" ) );
sl->Add( " Name controls : " + ( static_cast<TWinControl*> (ctrl) )->Name );
 
do
{
if( ctrl->ClassNameIs( "TRadioGroup" ) )
  {
  sl->Add( " Value = " + IntToStr(
                                 ( static_cast<TRadioGroup*> (ctrl) )->ItemIndex )
                                 );
  break;
  }
else if( ctrl->ClassNameIs( "TButton" ) )
  {
  sl->Add( " Value = press" );
  break;
  }
else if( ctrl->ClassNameIs( "TMemo" ) )
  {
  sl->Add( " Text = \"" + ( static_cast<TMemo*> (ctrl) )->Text + "\"");
  break;
  }
else
  {
  delete sl;
  return false;
  }
}while( false ); // Для тех, кто не любит goto
 
sl->SaveToFile( FileName );
 
delete sl;
 
return true;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
SaveControlState( Sender );
}
//---------------------------------------------------------------------------
 
void __fastcall TForm1::RadioGroup1Click(TObject *Sender)
{
SaveControlState( Sender );
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Memo1Change(TObject *Sender)
{
SaveControlState( Sender );
}
//---------------------------------------------------------------------------