[Interface]

Как уже сказали:

Если напишешь кинь исходник...
могу сказать тебе надо в начале программу забить в реестр на автозагрузку...остально ищи в инете..

А это я могу очень каряво тебе описать: (я такое с артмани пытался делать, очень бредово получается, но работает)

Код:

function KillTask(ExeFileName: string): integer;
const
  PROCESS_TERMINATE=$0001;
var
  ContinueLoop: BOOL;
  FSnapshotHandle: THandle;
  FProcessEntry32: TProcessEntry32;
begin
     slavka := true;

  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
          begin
      Result := Integer(TerminateProcess(OpenProcess(
                        PROCESS_TERMINATE, BOOL(0),
                        FProcessEntry32.th32ProcessID), 0));
                        end;
    ContinueLoop := Process32Next(FSnapshotHandle,
                                  FProcessEntry32); 
  end; 

  CloseHandle(FSnapshotHandle);
       slavka := true;
end;

это процедура убийства процесса по его имени.
Потом ставим таймер с мнтервало в 1 милисекунду...

Код:

procedure TForm1.Timer1Timer(Sender: TObject);
begin
If Edit1.Text <> Parol then
KillTask('artmoney.exe');
end;

Тобишь прога будет каждую милисекунду убивать ехе-шник если не введен пароль! Но пральнее это делать по другому как незнаю, может те и этот способ подойдет...
Если напишешь будь другом выложь сюда исходник!