void __fastcall TfrmMain::CmdInfo_Click(TObject *Sender)
{
	if (!m_objHost.IsBound()) {
        AnsiString strHost;

        if (InputQuery("Informacja", "Podaj nazw komputera:", strHost)) {
            if (strHost.IsEmpty())
                OleCheck(CoHostInfo::Create(m_objHost));
            else
                OleCheck(CoHostInfo::CreateRemote(WideString(strHost), m_objHost));

            WideString strInfo;
            OleCheck(m_objHost.get_Info(&strInfo));

            txtRemote->Text = strInfo;
        }
    }
}