Sikora RS-485

function SN(s:string):string;
var f:integer;
begin
f:= ord(copy(s,1,1)) xor ord(copy(s,2,1)) xor ord(copy(s,3,1)) xor ord(3);
result:= chr(2)+'001'+chr(3)+chr(f);
end;

const
  STX=$2;
  ETX=$15;

const
  cdStatusAndActualValueDiameter:ANSIString='001';
 
type
TCMD=array[0..5] of Byte;
 
var
  CMD:TCMD;
 
function CreateRequest(cd:ANSIString):TCMD;
var
  i:Integer;
begin
Result[0]:=STX;
for i:=1 to 3 do Result[i]:=Ord(cd[i]);
Result[4]:=ETX;
Result[5]:=<Расчет CRC>;
end
 
CMD:=CreateRequest(cdStatusAndActualValueDiameter);

type
  TRequest = packed record
    STX, IDB1, IDB2, IDB3, ETX, BCC: Byte;
  end;
  
procedure SendRequest;
var
  r: TRequest;
begin
  r.STX:= 2;
  r.ETX:= 3;
  r.IDB1:= 0;
  r.IDB2:= 0;
  r.IDB3:= 1;
  r.BCC:= r.IDB1 xor r.IDB2 xor r.IDB3 xor ETX;
  
  // далее - отправка данных в порт
end;

  r.IDB1:= Ord('0');
  r.IDB2:= Ord('0');
  r.IDB3:= Ord('1');

Port.Parity.Check:=True;
Port.Parity.Bits:=prMark;
Result:=Result+Port.Write(M[Offset],1);
if Result=0 then Exit;
Port.Parity.Bits:=prSpace;
Result:=Result+Port.Write(M[Offset+1],Count-1);