[kbaby]

Aquí esta lo que tengo:

procedure TForm1.Button1Click(Sender: TObject);
var
n, Cantidad, Numero: Integer;
begin
Numero:=0;
Cantidad:=Length(Edit1.Text);
for n:=Cantidad downto 1 do
begin
If Edit1.Text[n]='1' then
Numero:=Numero + Power ( 2, Cantidad - n);
end;
ShowMessage('El binario '+Edit1.Text' equivale al número entero '+IntToStr(Numero));

end;

end.

Y sí, voy a comprar un libro, voy a ir viendo esos que me informáis.