//--------------------------------------------------------------------------- void __fastcall TForm1::RemoveBtnClick(TObject *Sender) { TIniFile* Ini = new TIniFile("ONGUARD.INI"); try { Ini->DeleteKey("Codes", "UsageCode"); } catch (...) { delete Ini; Ini = 0; } delete Ini; // tell the code component to test the new code, reporting the results OgUsageCode1->CheckCode(true); }