Convertir des valeurs Hexadecimales

procedure TForm1.Button1Click(Sender: TObject);
begin
Label1.Caption:=inttostr(strtoint('$AFFE')); //45054
end;