procedure TForm1.TcpClient1Receive(Sender: TObject; Buf: PChar;
  var DataLen: Integer);
begin

end;

procedure TForm1.TcpClient1Send(Sender: TObject; Buf: PChar;
  var DataLen: Integer);
begin

end;

end.