пмогите подалуста как мне использовать функцию

function BinToInt(Value: string): Integer;
var
i, iValueSize: Integer;
begin
Result := 0;
iValueSize := Length(Value);
for i := iValueSize downto 1 do
if Value[i] = '1' then Result := Result + (1 shl (iValueSize - i));
end;


в процедуре
procedure TForm1.Button1Click(Sender: TObject);

???!!! понимаю google.ru ответил бы на мой вопрос но вот седян он не хочет давать мне ответа ...