TObjectlist Problem mit index

[DeddyH]

Hier einmal ein Auszug aus meinem aktuellen Projekt (ich hoffe, da ist mir jemand jetzt nicht böse ):

Delphi-Quellcode:

  with TFBLParamDsql.Create(nil) do
    try
      //...
      SQL.Text := Format(sSQL,[FTablename]);
      ExecSQL;
      while not eof do
        begin
          ASalutation := TSalutation.CreateNew(FDatabase);
          ASalutation.FID := FieldByNameAsInteger('ID');
          ASalutation.FTitle := FieldByNameAsString('Bezeichnung');
          self.Add(ASalutation);
          Next;
        end;
      Close;
    finally
      Transaction.Commit;
      Free;
    end;