endlosschleife

[cell]

weiß jemand warum hier eine endlosschleife ist

Delphi-Quellcode:

begin


with DataModule1 do
  begin
       //Query.close;
       Query.SQL.Clear;
       Query.SQL.Text:= selectsql('Anfangsgewicht_Belag_vorne_oben, Anfangsgewicht_Belag_vorne_unten','Friktionstest','Testnummer='+frmtestauswahl.cbotestnummer.Text,'','');
       //ShowMessage(inttostr(length(Query.SQL.Text)));
       Query.Open;
       Query.First;
       while not Query.Eof do
       begin

             frmgewichtaendern.txtbelagvo.Text:=(Query.Fields[0].AsString);
             frmgewichtaendern.txtbelagvu.Text:=(Query.Fields[1].AsString);
       end;
  end;

thx 4 help