[JoseQ]

solucionado, aun no se xk salia el error , xo lo arregle asi

Código Delphi [-]
procedure CerrarActivar(AFormRef:longint);
begin
if AFormRef > 0 then
  Tactivar(AFormRef).close;
end;