[delphi] zapis + zamykanie systemu

Witam [!!!]
Mam pewien program, w którym potrzebuje zastosować coś takiego:
podczas wyłączania/wylogowywania z systemu program musi zapisać pewne dane...
i tu jest problem, gdyż nie wiem jak rozwiązać ten problem... i proszę o pomoc...

w rozwiazaniu wstawilem odpowiedni kod do procedury OnClose programu, ale ona nie dziala...

 Private
   PROCEDURE ClosingWin(var Message: TMessage); message WM_QUERYENDSESSION;

{============= Wykrycie zamykania systemu ================}
{UWAGA - Podczas zamykania systemu NIE JEST REALIZOWANA żadna z procedur
zamykających program. Więc należy w poniższej procedurze odwołać się do tych
procedur ! - lub umieścić wszystko co ma być wykonane po wyłączeniu programu}
PROCEDURE TForm1.ClosingWin(var Message: TMessage);
var
 Action :TCloseAction;
Begin
 if message.Msg = WM_QUERYENDSESSION then
 begin
   //odwołanie się do procedury wykonywanej podczas zamykania okna
   FormClose(Form1,Action);
  //lub tu umiejscowienie czegoś co ma być wykonane :P
 end;
 DefaultHandler(message);
End; 

Odpowiadający dzięki ;-)