procedure TfrmImage.FormClose(Sender: TObject; var Action: TCloseAction);
begin
    Action:=caFree;
{
    очистка всего, чего надо.
}
end;