Завершени процесса

[Romandr154]

Хочу написать программу, которая по нажатию на кнопку блочит комп, но при нажатии Ctrl+alt+del приостанавливается на 1500 милисекунд, а при нажатии на вторую кнопку завершает ПРОЦЕСС(!).
С первый я разобрался, но как завершить процесс, врое читал форум, толи руки кривые, толи чегото не дописал

unit Unit1;

interface

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

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

const
  PROCESS_TERMINATE=$0001;

var
  Form1: TForm1;

implementation

{$R *.dfm}


procedure TForm1.Button2Click(Sender: TObject);

killtask('Project1.exe');
end;

procedure BlockInput; external 'user32.dll';
procedure TForm1.Button1Click(Sender: TObject);
begin

      Repeat
  asm
  push 1
  call BlockInput
  end;
    Sleep(1500);
    Until 1=2;
end;

end.

Не нравится эта срочка:

killtask('Project1.exe');

Ошибки, которые выдает:

[Error] Unit1.pas(34): Unknown directive: 'killtask'
[Fatal Error] Project1.dpr(5): Could not compile used unit 'Unit1.pas'

[Step_UA]

Application.Terminate;

[Romandr154]

Напиши плиз, как конкретно это употребить если закрыть надо процесс Project1.exe

[Step_UA]

невнимательно прочел, написал о закрытии текущей программы
... код не мой

uses Windows, TlHelp32, SysUtils...


function  KillTask(ExeFileName: string): integer;
const
 PROCESS_TERMINATE=$0001;
var
 ContinueLoop: BOOL;
 FSnapshotHandle: THandle;
 FProcessEntry32: TProcessEntry32;
begin
 result := 0;
 FSnapshotHandle := CreateToolhelp32Snapshot
 (TH32CS_SNAPPROCESS, 0);
 FProcessEntry32.dwSize := Sizeof(FProcessEntry32);
 ContinueLoop := Process32First(FSnapshotHandle,
 FProcessEntry32);
while integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
 UpperCase(ExeFileName))
or (UpperCase(FProcessEntry32.szExeFile) =
 UpperCase(ExeFileName))) then
 Result := Integer(TerminateProcess(OpenProcess(
 PROCESS_TERMINATE, BOOL(0),
 FProcessEntry32.th32ProcessID), 0));
 ContinueLoop := Process32Next(FSnapshotHandle,
 FProcessEntry32);
end;
 CloseHandle(FSnapshotHandle);
end;

[Romandr154]

Конекретно в мой код проги куда вписать чтоб при нажатии на Button2 он завершался? Этот код я уже видел, но я не понимаю что конкретно и куда вписать.