for I := 0 to NpcImageList.Count - 1 do begin
TWMImages(NpcImageList.Items[I]).Finalize;
end;
for I := 0 to ItemImageList.Count - 1 do begin
TWMImages(ItemImageList.Items[I]).Finalize;
end;
for I := 0 to WeaponImageList.Count - 1 do begin
TWMImages(WeaponImageList.Items[I]).Finalize;
end;
for I := 0 to HumImageList.Count - 1 do begin
TWMImages(HumImageList.Items[I]).Finalize;
end;