ClientSocket1.Socket.SocketHandle = -1
ClientSocket1.Socket.LookupState = lsLookupAddress

ClientSocket1.Socket.SocketHandle <> -1
ClientSocket1.Socket.LookupState = lsIdle

procedure TForm1.StartServerClick(Sender: TObject);
begin
  ServerSocket1.Port:=8888;
  ServerSocket1.Active:=true;
end;


procedure TForm1.CoonectToNonExistingClick(Sender: TObject);
begin
  ClientSocket1.Host:='notexisting';
  ClientSocket1.Port:=8888;
  ClientSocket1.Active:=true;
end;

procedure TForm1.ConectToExistsClick(Sender: TObject);
begin
  ClientSocket1.Host:='localhost';
  ClientSocket1.Port:=8888;
  ClientSocket1.Active:=true;
end;

procedure TForm1.ClientSocket1Error(Sender: TObject;
  Socket: TCustomWinSocket; ErrorEvent: TErrorEvent;
  var ErrorCode: Integer);
begin
  ShowMessage(inttostr(ErrorCode));
  ErrorCode:=0;
end;

procedure TForm1.ClientSocket1Connect(Sender: TObject;
  Socket: TCustomWinSocket);
begin
  Showmessage('Connected');
end;

length(ClientSocket1.Address) = 0