2 unterschiedliche Bedingungen in einer while Schleife

[WIng2005]

Habe es nun so gelöst:

Delphi-Quellcode:

Procedure Berechnen(); 
   qry:TZQuery;                                  
Begin
 
  if Bed1=true then
  Begin
  qry:=ZQuery1;
     //Select-Abfrage
  end
  else if Bed2=true then
  Begin
  qry:=ZQuery5;
     //Select-Abfrage
  end;

 
  while not qry.Eof do  
  Begin
   //
   //
   //
  end;
  qry.next

end;

Der Beitrag von Treffnix war eigentlich schon die Lösung (ich sollte erst lesen...)
Vielen Dank!!

MFG
Steffen