länge zweier integer werte vergleichen

[gangs-taas]

hey,
ich hab mal ne frage.
also ich habe 2 variablen mit integer werten.
nun möchte ich diese vergleichen und dann den kürzeren verändern.
beispie

Variable1 := 100
Variable 2 := 1000

dann soll er vergleichen ob variabel2 mehr zeichen beinhaltet und wenn ja vor Variable 1 so viele '0' machne, dass das gleich ist.

also aus
Variable1 soll dann 0100 werden.

ich bekomme aber das nicht mit der hilfe vom internet hin.

dacht vllt mit

Delphi-Quellcode:

repeat 
Variable1 := '0' + Variable1
until ((Length(Variable1) = (Length(Variable2)))

aber das klapt nicht ....

hoffe ihr versteht wie ich das mein und könnt mir helfen ^^

lg ^^