[artem_lavrenuk]

сделаєш одну копку и одно поле Edit1 и все
begin
nn:=strtoint(edit1.Text);
Edit1.Text:=inttohex(nn, 8);

end;