Leak

[address@hidden]

Michael,

I think TiniFile/TRegIniFile needs to be freed in procedure 
TAddictConfig.SaveConfiguration. 

    if (Assigned(FIniFile)) then
    begin
        FIniFile.Free;
        FIniFile := nil;
    end;
    if (Assigned(FRegIniFile)) then
    begin
        FRegIniFile.Free;
        FRegIniFile := nil;
    end;

Marcus


*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~
Marcus Moennig - address@hidden
*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~*~