1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:

procedure TForm1.Button1Click(Sender: TObject);
var sl:TStringlist;
    i:Integer;
begin
  sl:=TStringlist.Create;
  sl.LoadFromFile('data.txt');
  SetLength(bytearr,Trunc(Length(sl.Text)/2));
  For i:=0 to Length(bytearr)-1  do begin
    bytearr[i]:=StrToInt('$'+MidStr(sl.Text,i*3+1,2));
  end;
end;