开3389的程序我已经写完了,现在正在写一个可以修改3389端口的工具,当在Edit1.text输入定义好的端口.代码错误:
procedure TForm1.Button1Click(Sender: TObject);
var
     a:string;
     myreg:TRegistry;
begin
   try
begin
      a:=edit1.text;
      myreg:=TRegistry.Create;
      myreg.RootKey:=HKEY_LOCAL_MACHINE;
      if myreg.OpenKey('\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp',True) then
begin
      myreg.Writebool('PortNumber',+(a);//这里出现问题,我想把注册表里的PortNumber键+上a也就是edit1.text如何加上?
      myreg.CloseKey;
      myreg.Free;



修改3389端口注册表:
HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Terminal Server\WinStations\RDP-Tcp里的
 "PortNumber"=dword:00000a60 //如何把00000a60修改成Edit1.text还要把输入的Edit1.text十进制转换成十六进制该如何转?

（注意：因导入的是十六进制a60转换成十进制就是：2656，也就是2656端口！）

前辈们指教指教!