void TServerConnectState::ConnectToServer() { IClient* client = (IClient*)Application->RetrieveInterface(IID_IClient); assert(client); client->Connect("127.0.0.1", ServerPortConst); }