Очистка памяти процедурой .FormClose Delphi

[Человек Панда]

Здравствуйте.У меня вопрос на тему динамической очистки памяти.При закрытии формы,нужно очистить память,выделенную под нее. Я делаю это через .FormClose(Sender: TObject;var Action: TCloseAction).В диспечере задач вижу освобождение памяти,но она не возвращается к исходному состоянию,а снижается на 50-60%.Почему так происходит?На форме много компонент,может и их надо как-то удалить?Посоветуйте,пожалуйста.Вот процедурка очистки.

procedure TProizmatrix.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
action:=cafree;
end;