[icWasya]

назначить обработчик OnCloseQuery, а в нём Action:=caFree;