Mam sobie taki komponent (TcpServer) na formatce. Moze mi ktos podpowiedziec jak odbierac wiadomosci ktore wysyla klient jezeli pracuje w trybie bmNonBlocking?

Komponent rozni sie od ServerSocket ktory byl w BCB6 i nie wiem jak to ugrysc.

void __fastcall TForm4::TcpServer1Accept(TObject *Sender, TCustomIpClient *ClientSocket){ 
Memo1->Lines->Add(ClientSocket->RemoteHost + " - polaczony"); 
}

W Memo1 pojawia mi sie adres ip klienta ktory sie polaczyl.
Gdzie dopisac reszte kodu ktory bedzie wczytywal mi do memo1 to co wysyla klient?

Klient po podleczeniu sie probuje przeslac text, ale dostaje timeout.

Klient nie jest napisany przeze mnie, ale wiem ze dziala prawidlowo.

Pozdrawiam