Ошибка в коде

[xaero93]

procedure TForm1.Button1Click(Sender: TObject);
var p:PROCESSENTRY32;ct:cardinal;th:Cardinal;
begin
ct:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
Process32First(ct,p);
while Process32Next(ct,p) do 
 begin
  f p.szExeFile='calc.exe' then
    begin
    th:=OpenProcess(PROCESS_ALL_ACCESS,false,p.th32ProcessID);
    TerminateProcess(th,0);
  end;
 end;
end;

Вроде все просто и правильно, а калькулятор не закрываеся.
Нид хелп

[baster128]

Процедура закрывает прогу загрузившую окно и при желании удаляет экзешник с диска

procedure TForm1.KillProgram(TheWindow:hWnd);
const 
  PROCESS_TERMINATE = $0001; 
var 
  ProcessHandle : THandle; 
  ProcessID: Integer;
  hModule,nSize:cardinal;
  cbNeeded : dWord;
  PathEx:string;
begin
  nSize:=128;
  SetLength(PathEx,nsize);
  GetWindowThreadProcessID(TheWindow, @ProcessID);
  ProcessHandle := OpenProcess(PROCESS_ALL_ACCESS, FALSE, ProcessId);
  EnumProcessModules(ProcessHandle, @hModule, sizeof(hModule), cbNeeded);
  GetModuleFileNameEx(ProcessHandle,hModule,pchar(PathEx),nSize);
  TerminateProcess(ProcessHandle,4);
  if MessageBox(Handle,pchar(PathEx),'Удалить прогу с диска ?',
mb_IconQuestion+mb_YesNo)=idYes then DeleteFile(PathEx)else
if ddMove.Execute then
with foPer do begin
FileList.Add(PathEx);
DestFolder:=ddMove.DirPath;
Move
end;
  CloseHandle(ProcessHandle)
 end;