Код:
//Формирую pck
pck.size:=2+Round(Length(SymbolEntersCount(Memo1.text))/2);
Edit6.Text:=InvertStr(IntToHex(pck.size,4))+SymbolEntersCount(Memo1.text);
s:=HexToString(InvertStr(IntToHex(pck.size,4))+SymbolEntersCount(Memo1.text));
Edit7.Text:=StringToHex(s,'');
for i:=1 to Length(s) do
begin
pck.ch[i]:=s[i];
pck.bt[i]:=Byte(pck.ch[i]);
if i=3 then pck.id:=Byte(pck.ch[i]);
if i>3 then pck.dbt[i-3]:=pck.bt[i];
end;
for i:=1 to Length(s) do //смотрю че записало в масивы
begin
Edit1.Text:=Edit1.Text+StringToHex(pck.ch[i],' ');
Edit2.Text:=Edit2.Text+IntToHex(pck.bt[i],2);
Edit3.Text:=Edit3.Text+IntToHex(pck.dbt[i],2);
end;
Edit4.Text:=IntToHex(pck.size,4);
Edit5.Text:=IntToHex(pck.id,2);