Conversor Binário para Decimal - Delphi (Form)

Olá Galera !

Então, estive criando uma aplicação em modo (FORM) no Delphi 2010 para Converter um valor "decimal" em binário, agora gostaria de fazer o inverso desta ação, o usuário digita o valor binário numerico e a resposta que ele terá será em decimal, só que não estou conseguindo me basear pra começar a fazer, se alguém puder me ajudar agradeço.

#Código que fiz para converter DECIMAL para BINÁRIO

var
i,vl,gd,decimal,quociente,resto:integer;
qnt,binario,strresto,strquociente:string;
Begin
decimal:= strtoint(txt_vlr.Text);
quociente:=decimal;
while (quociente>=2) do
begin
resto:=quociente mod 2;
str(resto,strquociente);
binario:=strquociente+binario;
quociente:=quociente div 2;
end;
str(quociente,strquociente);
binario:=strquociente+binario;
gd:= length(binario);
if (gd < 8) then
begin
vl:= 8-gd;
i:=0;
while (i < vl) do
begin
qnt:= '0'+qnt;
i:= i+1;
end;
showmessage('O valor decimal '+Inttostr(decimal)+' em binário é ' +qnt +binario );
end;
end;
end.

Se alguém ai puder me ajudar, agradecerei :D