procedure TForm1.ComPort2RxChar(Sender: TObject; Count: Integer);
var str:string;
vtg:Double;
begin
Comport2.ReadStr(str, Count);
idUDPClient2.Send(str); // самому себе
IdUDPClient3.Send(str); // на катрту
end;
var str:string;
vtg:Double;
begin
Comport2.ReadStr(str, Count);
idUDPClient2.Send(str); // самому себе
IdUDPClient3.Send(str); // на катрту
end;