//Il programma finale era questo che sono riuscito a realizzare
//grazie al vostro aiuto.

//Da testo a Binario:

procedure TForm1.Button1Click(Sender: TObject);

var r,r2,r3,txt:string;
var n,n2:real;
var k,k2:integer;

Begin
For k := 1 To Length(Memo1.Text) do Begin

txt := Copy(Memo1.Text,k,1);

if txt <> '' Then
txt := IntToStr(ord(txt[1]));

n:=StrToFloat(txt);

While n <> 1 do Begin
n2 := n / 2;
If Int(n2) = n2 Then
r := IntToStr(0)
else
r := IntToStr(1);
//end else.
n := Int(n2);
r2 := r2 + r;
End; //While
r2 := r2 + IntToStr(1);

For k2 := 0 To Length(r2) do Begin
r3 := r3 + Copy(r2,Length(r2)-k2+1,1)
End; //K2
Memo2.Text := r2;
End; //K

End; //Begin
End. //Procedure

Ciao