Program varsa kapansın (Delphi)

Öncelikle mrblar. Elime aşağıdaki gibi bir kod var fakat Whand kısımları hata veriyor. Yardımcı olursanız çok minnetdar kalırım.

procedure rapor_varsa_kapat;
begin
whand :=FindWindow(nil,'Enterprice raporlama ekranı');//pencere başlığından programı bul
if whand <> 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat.
whand:=FindWindow(nil,'Rapor ekranı');//pencere başlığından programı bul
if whand <> 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat.
whand:=FindWindow(nil,'Rapor önizleme');//pencere başlığından programı bul
if whand <> 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat.
whand:=FindWindow(nil,'Rapor Önizleme');//pencere başlığından programı bul
if whand <> 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat.
whand:=FindWindow(nil,'Baskı önizleme');//pencere başlığından programı bul
if whand <> 0 then PostMessage(whand,wm_close,0,0);//bulduğun programı kapat.
end;