Как при старте программы восстановить в субменю Checked true из ini файла

TMenuItem *m = dynamic_cast <TMenuItem *> (Sender);
Ini->WriteInteger("Report Settings","Coloun MaxWidth",colwidth);
Ini->WriteString("Report Settings","Menu",m->Name);
Ini->WriteInteger("Report Settings","Mark Menu",m->MenuIndex);

[CPP]// MainMenu1->Items->Name("N1601")->
 // TMenuItem *we = dynamic_cast <TMenuItem *> (we->Find("N1601"));
    // we->Checked = true;

MainMenu1->FindItem(6,0)->Checked = true;

TMenuItem *mi =MainMenu1->FindItem(6,0);
if(mi){
 int i=Ini->ReadInteger("Report Settings","Mark Menu",-1);
 if(i>=0)  mi=mi->Items[i] ->Checked = true;
}

TMenuItem *we = dynamic_cast <TMenuItem *> (we->Find("N1601"));

TMenuItem *SearchItem(TMenuItem *mi, String s)
{
    TMenuItem *it = mi->Find(s);
    if(it) return it;
 
    for(int i = 0; i < mi->Count; i++)
    {
        it = mi->operator [](i)->Find(s);
        if(it) return it;
 
        it = SearchItem(mi->operator [](i), s);
        if(it) return it;
    }
    return 0;
}
TMenuItem *SearchMainMenu(TMainMenu *mm, String s)
{
    for(int i = 0; i < mm->Items->Count; i++)
    {
        TMenuItem *it = SearchItem(mm->Items->operator [](i), s);
        if(it) return it;
    }
    return 0;
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    SearchMainMenu(MainMenu1, "N1601")->Checked = true;
}

ShowMessage(s);

SearchMainMenu(MainMenu1, String(colwidth))->Checked = true;