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

[Lamy]

Hi!
Für Info muss ich eine Prozedur schreiben, die eine dezimalzahl in eine Binäre umwandelt nach dem Schema:
[Beispiel:]
23: 2 = 11 Rest 1
11 : 2 = 5 Rest 1
5 : 2 = 2 Rest 1
2 : 2 = 1 Rest 0
1 : 2 = 0 Rest 1
Also: 10111.

Delphi-Quellcode:

PROCEDURE TForm1.Berechnen(Zahl, Basis: Integer; VAR Ausgabezahl: Str15);
VAR Laenge, Zwerg: Integer;
BEGIN
  Ausgabezahl := '';
  Laenge := Length(Ausgabezahl);
  REPEAT
    Zwerg := Zahl MOD Basis;
    Ausgabezahl := { Hier ist jetzt das Problem; wie bekomm ich hin, dass der nun Zwerg auf jede neue Stelle schreibt?} ;
    Zahl := Zahl DIV Basis;
  UNTIL Zahl = 0;
END;

Danke schonmal,
Lamy