Frage zu mehr Dynamik bei Zahlensystemumrechnungen

[Mysterio08]

Hallo,

mit folgendem Code rechne ich vom Dezimal- ins Binärsystem:

Delphi-Quellcode:

function IntToBin(Int: Integer): String;
var
  i : Integer;
begin
  Result := '';
  for i := 7 downto 0 do
    Result := Result + IntToStr((Int shr i) and 1);
end;

Das einzige Problem, was aufgetaucht ist, ist die 7. Wenn ich 9999 umrechne, werden mich ja nur sieben Stellen angezeigt, der "wahre" Binärwert hat aber mehr.
Wenn ich nun die Zahl 2 in binär umwandle, läuft die Schleife auch öfters durch, als sie es eigentlich bräuchte. Wie kann ich mehr Dynamik da reinbringen und besser zuschneiden?