Устранение неполадок!

var  x: array[1..3[ of byte;
begin
x[1]:= $00;   x[2]:= $01;   x[3]:= $00;
end;

type
  TArr = array of byte;
…
Function gg(const str: string): TArr;
var
  size: Integer;
  i: Integer;
begin
  size := Length(str);
  SetLength(Result, size);
  for i := 1 to size do
    Result[i - 1] := Ord(str[i]);
end;

String:= ‘problema’;  =>  TArr: array of byte;

var
result:TArr;

type TArr=array of byte;
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
function gg(s:string):TArr;
var i:integer;
begin
setlength(result,length(s));
for i:=low(result) to high(result) do
result[i]:=ord(s[i+1]);
end;
 
procedure TForm1.Button1Click(Sender: TObject);
var arr:TArr;
    i:integer;
begin
arr:=gg(Edit1.Text);
for i:=low(arr) to high(arr) do
Edit2.Text:=Edit2.Text+' '+IntToStr(arr[i]);
end;

var  x: array[1..3[ of byte;
begin
x[1]:= $00;   x[2]:= $01;   x[3]:= $00;
Cmpt.Send(x, sizeof(x));
end;

function gg(s:string):TArr;
var i:integer;
begin
setlength(result,length(s));
for i:=low(result) to high(result) do
result[i]:=ord(s[i+1])-ord('0');
end;