Du hast die Freigabe der skalierten Grafik vergessen.
Wenn ReportMemoryLeaksOnShutdown in deiner Anwendung auf True gesetzt ist, wird dieser Speicherfehler beim Beenden der Anwendung auf jeden Fall gemeldet.
Delphi-Quellcode:
var
sImage: string;
lImage: TWICImage;
begin
if TDirectory.exists(ModPath + '[ShipEdit] Segelweberei Enbesa') then
sImage := 'ja'
else
sImage := 'nein';
{gibt ein Image der Collection zurück, für die Freigabe ist die Collection verantwortlich}
lImage := MainForm.ImageCollection.GetIndexByName(sImage);
{erzeugt ein neues Image der gewünschten Größe, für die Freigabe ist man selbst verantwortlich!}
lImage := MainForm.ImageCollection.GetScaledImage(lImage, 48, 48);
try
{ezeugt intern eine Kopie des Image per Assign()}
ShipYardForm03.SailClothingEnbesaImage.Picture.Graphic := lImage;
fianlly
lImage.Free;
end;