Variablen Verwendung

[Mb123]

Delphi-Quellcode:

[...]

var
  Form1: TForm1;
  u1,u2,u3,v1,v2,v3,t1,t2,t3,q,a,b:integer;

[...]

procedure TForm1.Button1Click(Sender: TObject);
begin

a:=StrToInt(edit1.text);
b:=StrToInt(edit2.text);
u1:=1    ;
u2:=0    ;
u2:=a    ;

v1:=0    ;
v2:=1    ;
v3:=b    ;

while v3>0 do
begin

q:= u3 DIV v3;

t1:=u1-q*v1   ;
t2:=u2-q*v2   ;
t2:=u3-q*v3   ;

u1:=v1        ;
u2:=v2        ;
u3:=v3        ;

v1:=t1        ;
v2:=t2        ;
v3:=t3        ;
ListBox1.Items.Add(IntToStr(u1));
ListBox1.Items.Add(IntToStr(u2));
ListBox1.Items.Add(IntToStr(u3));

end;
end;

end.

Ich hab den Code jetzt so geschrieben, allerdings krieg ich als ausgabe nur die startwerte
u1=0
u2=1
u3=b
..
Ich denk mein Fehler liegt an dieser Stelle
while v3>0 do In der Darstellung oben heißt "!=" doch soviel wie: bis v3=o wird oder ? Ich hab ja jetzt einfach geschrieben v3>0 :S
kann mir da jemand weiterhelfen ? danke !