Auslesen TObjectlist - rückgabewert von T.ObjectList.Add immer 0

[Blup]

Delphi-Quellcode:

while not MultiSQLQ.Eof do
  begin
    w := TMeinObject.Create; // <- für jeden Datensatz ein neues Objekt erzeugen
    for i := 0 to MultiSQLQ.FieldCount - 1 do
    begin
      w.LoadProp(MultiSQLQ.Fields[i].FieldName, MultiSQLQ.Fields[i].Value);
    end;
    j := Result.Add(w);
    MultiSQLQ.Next;
  end;