Метод TFrmMain AbortAsyncHostBtnClick
procedure TfrmMain.btnAbortResClick(Sender : TObject);
begin CsSocket1.CancelAsyncOp := TRUE; pnStatus.Color := clYellow; pnStatus.Caption := 'Operation aborted'; btnAbortRes.Enabled := FALSE; btnResolve.Enabled := TRUE; Screen.Cursor := crDefault; end;
