Die beiden Parameter übergebe ich const an eine Unterfunktion
procedure AddToList(const MyList: TMyListType;const MyResult: TADODataset);
Hierdrin versteckt sich dann einfach nur der übliche Ablauf, Objekt erstellen, Werte aus MyResult in das Objekt übertragen, Objekt in Liste einfügen.
Aber wie gesagt, die Probleme mit den
Access Violations fangen bereits nach MyResult.Open im zweiten Funktionsaufruf an. Und sie betreffen die Liste, die im ersten Funktionsaufruf benutzt wurde