Klient po stronie Delphi

Witam

Potrzebuję zrobić w DLL klienta socketu...serwerem jest program w javie.
W javie mam to napisane-jest to kwestia wymiany jednego strina...z javy ma iść String do dll i dll odsyla też Stringa.

Na razie mam to:

W uses dodałem ScktComp

W types dodałem Client: TClientSocket;

I teraz dla celów testowych po naciśnięciu butona wywołuje się kod:

     Client:= TClientSocket.Create(nil);
     Client.Port := 1111;
     Client.Host :=  '127.0.0.1';
     Client.Active := true;
     Client.Socket.SendText('Witaj');

     text :=  Client.Socket.ReceiveText;
     ShowMessage('--->' + text+ '<---');
 

Niestety nie dziła - w javie widzę że klient się podłączył, jednakże ani nic nie dostaje ani moje wysłane (jeżeli zamienię kolejnosć) nie wyświetla sie w msg w dll.

Pomóżcie w delphi pisze od 32 h , ale sposób w jaki działają sockety w javie i delphi są inne trochę. Gdzie robię bład?

PS: Używam delphi 5

EDIT: próbowałem jeszcze Client.Open przed wyslaniem tekstu ale zima- nie pomaga.