Record transfer with ICS

I'm not familiar with ICS but i wanted to try how to send receive records with ICS. So i tried to create a little demo app. After i connected to the TWSocketServer, i'm trying to send the record like this, but TWSocketServer's OnDataAvailable never fires! Can you tell me what is the problem ?

procedure TForm1.Button2Click(Sender: TObject);
var
  RecToSend: PMyRec;
begin
    New(RecToSend);

    with RecToSend^ do
    begin
      Id := 1111;
      Title := 'test';
    end;
    WSocket1.Send(RecToSend, SizeOf(TMyRec));
    Dispose(RecToSend);
end;

procedure TForm1.WSocketServer1DataAvailable(Sender: TObject;
  ErrCode: Word);
var
  Len: Integer;
  ReceivedRec: PMyRec;
begin
  Caption := 'Rec Received';
  New(ReceivedRec);
    Len := TWSocketClient(Sender).Receive(ReceivedRec, SizeOf(TMyRec));
    if (Len > 0) then
    begin
      Caption := ReceivedRec^.Title;
    end;
    Dispose(ReceivedRec);
end;

Maybe i'm not handling the data correctly but at least OnDataAvailable should fire and type 'Rec Received' to the form's caption. But nothing happens.

Regards,

Goran