procedure TForm1.ClientSocketRead(Sender: TObject; Socket: TCustomWinSocket);
begin
  FResult:=FResult+Socket.ReceiveText;
  if pos('искомые_данные', FResult)>0 then ClientSocket.Close;
end;