Problem mit Integer zu Binär

[SubData]

Mit dieser Funktion macht er keine Nullen voran:

Delphi-Quellcode:

function DezToBin(Zahl: Int64): String;
begin
  Result:='';
  repeat
    if Zahl mod 2 =0 then
    begin
      Result := '0' + Result;
    end else
    begin
      Result := '1' + Result;
    end;
    Zahl := Zahl div 2;
  until Zahl = 0;
end;