Auf eine bestimmte Stelle in einem String was einfügen...

[ibp]

... es geht auch rekursiv...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  function binaer(Zahl:integer):string;
  begin
    if zahl>1 then
      result:=binaer(zahl div 2);

    result:=result+inttostr(zahl mod 2)
  end;

begin
  edit1.Text:=binaer(strtoint(edit2.Text));
end;