Moin...

Sieht unspektulär aus...

Kein Free für eine TCallInstance?
Versuche mal das:
Delphi-Quellcode:
procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleCreate(Sender: TObject);
begin
inherited;
fCallInstanceDictionary := TCallInstanceDictionary.Create([doOwnsValues]); // die Values werden von der Liste freigeben
end;
procedure Tbc_AsteriskCallDictionaryDataModule.DataModuleDestroy(Sender: TObject);
begin
inherited;
// fCallInstanceDictionary.Clear; // vor dem Free brauchst du das nicht
fCallInstanceDictionary.Free;
end;