При закрытии программы вывести сообщение - Free Pascal

Формулировка задачи:

нужно сделать следующее при закрытии окна программы Free Pascal крестиком в правом верхнем углу , прежде нужно вывести сообщение как реализовать умища не хватает может кто поделится

Решение задачи: «При закрытии программы вывести сообщение»

Листинг программы

program OnClose;
  uses CTR;
 begin
  if OnCloseQuery then WriteLn('OK');
 end.

Объяснение кода листинга программы

В данном коде выполняется следующая последовательность действий:

Объявляется переменная OnCloseQuery типа boolean.
Выполняется проверка условия if OnCloseQuery then.
Если условие истинно, то выводится сообщение OK.
Завершается выполнение программы.