如何将寄存器中的二进制转换成十进制(100分)

我做的是一个实时采集系统，由于是新手，所以对这个二进制转换成十进制不了解，希望高手指点。
另外，在Delphi中如何读取保存在寄存器中的数据。请各位高手指点，不胜感激。

//2->10
function BinToInt(Value: String): LongInt;
var
i,Size: Integer;
begin
Result:=0;
Form1.Caption:='';
Size:=Length(Value);
for i:=1 to size do begin
if Copy(Value,i,1)='1' then begin
Result:=Result+(1 shl (size-i));
end;
end;
end;