Как присвоить значения кнопкам на Delphi 7?

[Pro100Serj]

У меня есть функция:

var a : string;
function BIN_DEC(x:string):integer;
const digits:array [0..1] of char = ('0','1');
var res,ves:integer;
i,j:byte;
begin
res:=0; ves:=1;
for i:=length(x) downto 1 do begin
j:=0;
while (digits[j]<>x[i]) do inc(j);
res:=res+ves*j;
ves:=ves*2;
end;
BIN_DEC:=res;
end;

Но я не знаю, Что мне дальше делать, там же нужно кнопки присвоить.
Мне нужно 2 кнопки: 1я- для ввода числа, 2-я- ввод.
Я полный "чайник"...

[VIK_aka_TOR]

Button.caption := 'Текс на кнопке';