BCB Socket

[FX12]

Witam!
Mam dość nietypowe pytanie Chodzi mi o wysyłanie z klienta z Edit1 wiadomości tak żeby na serwerze pokazywała się ta wiadomośc w ShowMessage a najlepiej w MessageBox. Oto do czego udało mi się dojśc:

KLIENT: Button1:SendMsg:

ShowMessage(Edit1->Text); // To działa tylko na kliencie:

__________________________________________________ ____________
Otóż na aplikacji klient-server sprawa się komplikuje:

KLIENT: Button1:SendMsg:

Client->Socket->SendText("wiadomosc");


SERVER: OnRead:

if(polecenie == "wiadomosc")
ShowMessage(Socket->ReceiveText); // co mogę tu zrobić?

Jeśli ktoś wie jak to zrobić, proszę o odpowiedź.

Pozdrawiam!
FX12

EDIT!!: TEMAT ROZWIąZANY, DO ZAMKNIĘCIA

Jakby ktoś nie wiedział:

OnServerRead:
AnsiString sendmsg;
sendmsg= Socket->ReceiveText();
ShowMessage(sendmsg);