//---------------------------------------------------------------------------
void __fastcall TShowItObjInfosForm::cbItemsClick(TObject *Sender)
{
  FormCreate(0);
}
//-----------------------------------------------------------------------
void __fastcall Ttandr::clearClick(TObject *Sender)
{
 Memo1->Clear();
 rmemo->Clear();
 FormCreate(Sender);
}