2-binary, 8-binary, 16-in-turn 10-in custom function

1.2-in-turn 10-in custom functions:

function Dectoint (temp:string): integer; 2-in-turn 10-in system
Var
I,j:integer;
Begin
Result: = 0;
J: = Length (temp); Gets the string length;
For I: = 0 to Length (temp)-1 do
Begin
Result: = Result+strtoint (Copy (temp,j,1)) *trunc (Power (2,i)); Trunc convert extended to Int64 type
Dec (j); Descending, equivalent to J: = J-1;
End
ShowMessage (IntToStr (result));
End

2-binary, 8-binary, 16-in-turn 10-in custom function