一个关于 Byte 的问题。(20分)

var
tmpbyte:array of byte;
input:ingeter;
begin
tmpbyte[0]:=$85;
tmpbyte[1]:=$00;
tmpbyte[2]:=$00;
input:=1;
...

想请教：
1、如何才能实现： tmpbyte[3]:=$ input;

input := $1;
tmpbyte[3] := Byte(input);

感谢 xiaopei 的提示，分虽少，全给你。另外放出完整的程序部分。


procedure TForm1.Button6Click(Sender: TObject);
Var
tmpbyte:array of byte;
input:integer;
begin
input:=Strtoint('$85');
tmpbyte[0]:=Byte(input);
if tmpbyte[0]=$85 then showmessage('tmpbyte[0]=$85 OK');
end;