[NumLock]

это едиты на форме:

Код:

type
  TForm1 = class(TForm)
    EditHex: TEdit;
    EditDec: TEdit;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

они нужны только для этого примера, чтобы было куда результат увидеть.