Bei schließung eines Forms result ausführen?

[VT-DA]

Hi,

Ich versuche verzweifelt eine Funktion zu schreiben die einen Wert z.B. 1 zurück gibt wenn ein Form beendet oder geschlossen wurde.
Hier mal meinen Code wie ich es dachte:

Delphi-Quellcode:

function events(): integer; stdcall;
begin
  result := 1;
  if Form1.OnDestroy then
    result := 0;
end;

Doch irgendwie klappt das nicht so ganz.

Mfg