Variablen Verwendung

[Mb123]

ihr seid spitze man

Delphi-Quellcode:

var
  Form1: TForm1;
  q:integer;

  Type
  TVektor = Record
    a, b, c: Integer
  End;

Var
  aVektor: TVektor;
  bVektor: TVektor;
  cVektor: TVektor;

.. 

Function Vektor(Const a, b, c: Integer): TVektor; 
Begin
  Result.a := a;
  Result.b := b;
  Result.c := c;
End;

procedure TForm1.Button1Click(Sender: TObject);
begin


  aVektor := Vektor(1,0,160);
  bVektor := Vektor (0,1,7);

while aVektor.a <> 0 do
begin

q:= bVektor.c DIV aVektor.a;

  aVektor := Vektor(aVektor.a-(q*bVektor.a),aVektor.b-(q*bVektor.b),aVektor.c-(q*bVektor.c));
  bVektor := Vektor(aVektor.a,aVektor.b ,aVektor.c);
  cVektor := Vektor(aVektor.a,aVektor.b  ,aVektor.c);

ListBox1.Items.Add(IntToStr(bVektor.b));


end;

end;

end.

habs nu so gemacht.. nur wenn ich das laufen lass, kommen keine zahlen sondern die .exe hängt sich auf :/ weiß jemand rat ?