procedure TForm2.FormDestroy(Sender: TObject);
begin try
fav_.free;
if HookID <> 0 then UnHookWindowsHookEx(HookID);
except end;End;