PC fährt nicht runter, wenn Server-Anwendung läuft

[MCQ]

Konnte nicht bis morgen in der Schule warten. Die neugierde hat mich dazu getrieben, ein ändliches Programm hier zu Hause nochmal nach zu stellen. Leider hat es nicht ganz so wie beschrieben geklappt. Hab's nen bisschen abgewandelt. Ich hab's jatzt wie folgt:

Delphi-Quellcode:

Function Ende:Boolean;
begin
*ExitProcess(0);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
*AddTerminateProc(Ende);
end;

ES FUNKTIONIERT !!!
Tausend Dank für eure Hilfe