procedure TfrmMain.Listen();

begin

  popActionOnline.Checked := not popActionOnline.Checked;



  if popActionOnline.Checked then

  begin

    ClientSocket.Active := False;

    ServerSocket.Active := True;

    lblStatus.Caption := 'Listening...';

  end

  else

  begin

    if ServerSocket.Active then

      ServerSocket.Active := False;

    lblStatus.Caption := '';

  end;

end;