Locate Bug oder Brett vorm Kopf?

[Dummy]

Folgende Funktion soll zwei dinge erledigen:
- Ein Feld ändern
- und ggf. alle Datensätze die zu dem Namen passen (jedoch unterschiedliche Nr. haben) aktualisieren

Der zu ändernde Datensatz wird über Locate ausgewählt und geändert.

Nach der Änderung sollen alle Datensätze mit gleichen Namen und gleicher UserID ebenfalls mit demFeld aktualisiert werden.

Und das klappt leider nicht. Das 2. Locate tut so als wären die Datensätze nicht vorhanden. (Auch der Datensatz nicht der kurz vorher gefunden und geändert wurde)

Delphi-Quellcode:

Function TDM.GebaeudeWriteFeld ( DBUserID : Integer ; Gebaeude : String; GebaeudeNr : Integer; Feld : String ; Wert : Variant; AktualisiereMaxGebaeude : Integer  ) : Boolean;
VAR
I : Integer;

BEGIN
Result := Nein;
// Master lokalisierbar?
IF NOT TableWorkUser.Locate ( 'UserID', DBUserID, [] )
   THEN
   Exit;
// Gebäude vorhanden?
// Hier ist der erste Locate der einwandfrei funktioniert
IF NOT TableWorkGebaeude.Locate ( 'UserID;Gebauede_Name;Gebaeude_Nr', VarArrayOf([DBUserID,Gebaeude,GebaeudeNr]), [loCaseInsensitive] )
   THEN
   BEGIN
   // Gebäude angelegt?
   IF NOT GebaeudeAnlegen ( DbUserID, Gebaeude,GebaeudeNr )
      THEN
      Exit;
   END;
IF TableWorkGebaeude.FindField (Feld) <> nil
   THEN
   BEGIN
   TRY
      TableWorkGebaeude.Edit;
      Try
         TableWorkGebaeude.FieldByName(Feld).Value := Wert;
         TableWorkGebaeude.Post;
         TableWorkGebaeude.FlushBuffers;
         Result := Ja;
         IF AktualisiereMaxGebaeude > 0
            THEN
            BEGIN
            Application.ProcessMessages;// Das war mal ein Test. Refresh und TableWorkGebaeude.First habe ich auch schon erfolglos probiert. grrrrrr
            FOR I:=1 TO AktualisiereMaxGebaeude DO
                BEGIN
// Hier liegt das Problem
// Dies ist der zweite Locate der nicht so recht willig ist
                IF TableWorkGebaeude.Locate ( 'UserID;Gebauede_Name;Gebaeude_Nr', VarArrayOf([DBUserID,Gebaude,I]), [loCaseInsensitive] )
                   THEN
                   BEGIN
                   TableWorkGebaeude.Edit;
                   TableWorkGebaeude.FieldByName(Feld).Value := Wert;
                   TableWorkGebaeude.Post;
                   TableWorkGebaeude.FlushBuffers;
                   END;
                END;
             END;
      EXCEPT
         TableWorkGebaeude.Cancel;
         Result := Nein;
         End;
   EXCEPT
      Result := Nein;
      End;
   END;
END;