Endlos Schleife

[ngott2]

Hallo, liebe Community.
Ich habe eine Schleife gebaut die aus irgend einem Grund eine Endlosschleife ist.
Die Bedingung bei einer While Schleife geht. Aber er muss leider mindestens einmal Durchlaufen.
Habe ich irgendwo einen Denkfehler.

Code:

repeat
    DokumentID.ID := Query.FieldByName('DID').AsInteger;   // DID =DocumentID
    DokumentID.ID := Query.FieldByName('CID').AsInteger;  // CID = CompanyID
    Result.Add(DocumentID);
    query.Next
  until (not query.Eof);

Hier ist noch meine Sql Anweisung

Code:

Query.SQL.Text := 'Select ID As DID ,CompanyID As CID from [Document] Where Status = 1 and LoadForEmployee = false Order By CompanyID';

Danke im Voraus.