- procedure TForm1.IdTCPClient1Connected(Sender: TObject);
- begin
- try
- while IdTCPClient1.Connected do begin
- IdTCPClient1.WriteInteger(10);
- IdTCPClient1.WriteInteger(3);
- ShowMessage(IntToStr(IdTCPClient1.ReadInteger));
- end;
- finally
- IdTCPClient1.Disconnect;
- end;
- end;