// Das Programm wird mit einer Meldung zwangsbeendet.

// Getestet mit D4 unter WinME

      
procedure TForm1.Button7Click(Sender: TObject);
begin
FatalAppExit(0,'Da ich weiß, dass Sie sowieso keine Lust zum'+
' Arbeiten haben, beende ich hiermit das Programm.');
end;