procedure TfMain.FormClose(Sender: TObject; var Action: TCloseAction);
begin
　　Screen.OnActiveControlChange:=nil;
end;

で解決しました。が、これで良いのでしょうか・・・。