хук застрял

загрузка происходит при открытии любого окна а нодо при
открытии'project1'
помогите pliiz кодом
спасибо.
var

st: array [0..128] of Char;
hw: HWND;
begin
hw := GetForegroundWindow;
GetWindowText(hw, @st, 128);
if CompareStr(string(st),'Project1')<> 0 then begin
Hdll:= LoadLibrary(PChar('somer.dll')); { загрузка DLL }
end;