🚀 go-pugleaf

Hi!

I'm trying to write a class which manages all the network comms in my 
application. Ideally, I'd like the class to create and free the TCP Server 
itself.

I'm having real problems setting the TCP Server to Active. After running the 
code below, the TIdTCPServer's Active property is still false.

Obviously I'm missing something! Has anyone any thoughts? Thanks in advance 
for any advice you can give. I have Google'd this, and nothing came up.

TNCom::TNCom()
{
        TCPServer = new TIdTCPServer(NULL);
        TCPServer->DefaultPort = 9590;
        TCPServer->OnConnect = TCPServerConnect;
        TCPServer->Active = true;
}

void __fastcall TNCom::TCPServerConnect(TIdPeerThread *AThread)
{
        MessageBeep(0); // for test purposes!
}

void __fastcall TNCom::TCPServerExecute(TIdPeerThread *AThread)
{
        MessageBeep(0); // for test purposes!
}

I've omitted the destructor in quoting this code, by the way.

Cheers,

- James