Laufende Anwendung beenden

[Triples]

Hi und zwar habe ich mir ein code snipped aus dem delphi helper besorgt ,was ich dringend einbauen muß in mein simpeles test projeckt!
Es funzt auch super!
Bloß muß man ja erst den button 1 drücken, das abgefragt wird ob der Olly Shadow läüft zum beispiel!
Nun würde ich den code gerne in meine hauptform so einbauen das er ohne nen button zu drücken guck welche programme laufen und sie bendet wie in diesem code exampel!

Ich weiß nicht wie ich den code so abändern muß!
Ich hoffe es kann mir jemand bitte helfen!
Grüße euer Triples

Delphi-Quellcode:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,TLHelp32, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}
function KillTask(const AExeName: string): boolean;
var
  p: TProcessEntry32;
  h: THandle;
begin
  Result := false;
  p.dwSize := SizeOf(p);
  h := CreateToolHelp32Snapshot(TH32CS_SnapProcess, 0);
  try
    if Process32First(h, p) then
      repeat
        if AnsiLowerCase(p.szExeFile) = AnsiLowerCase(AExeName) then
          Result := TerminateProcess(OpenProcess(Process_Terminate,
                                                 false,
                                                 p.th32ProcessID),
                                     0);
      until (not Process32Next(h, p)) or Result;
  finally
    CloseHandle(h);
  end;
end;


procedure TForm1.Button1Click(Sender: TObject);
begin
  if not KillTask('Olly Shadow') then
    Showmessage('Kein Debugger Olly Shadow Aktiv.');

end;

end.