Cómo convertir un número binario al tipo Real

[kbaby]

Ya os dije que volvería...

He estado viendo estó de pasar de decimal > binario y lo que llevo de código es:

Código Delphi [-]
  Binario:=strtofloat(edit1.text);
  IF Binario > 1 then
                    begin
                    Division:= Binario div 2;
                    Resto:= Binario mod 2;

Bueno... a lo que voy, necesito una funcion que me repita el proceso hasta que el numero sea mayor que 1. (Para pasar de bin > dec había que dividir entre 2 y quedarse el resto).

Bueno, ese comando es while (esto lo aprendi por mi cuenta). Pero el problema:
Mi lindo profesor no me a hablado de while...

¿Cómo lo uso? ¿Me enseñais?

Gracias