Freigeben von Objekten einer Function

[Olli73]

Du erstellst zuerst eine neue Instanz und weist diese Result zu:

Result:= TTGMessage.Create;
Dann weist du Result eine andere Instanz zu:

z.B.: Result:= FTGResults[Index].TGMessage; wodurch die zuerst erstellte Instanz in der Luft hängt und nie freigegeben wird.

=> Lass einfach das create weg, das du scheinbar hier gar nicht brauchst.