Use este ejemplo sencillo y rapido para verificar su utilidad, y lo precento para aquellos novatos como yo lo pruebe para resolver algun problema similar al mio.
Código Delphi
[-]
unit ProcGlob;
interface
FUNCTION f_VerMsg(f_Num :Integer): Boolean;
implementation
FUNCTION f_VerMsg(f_Num :Integer): Boolean;
BEGIN
IF f_Num=0 THEN
Result:=True
ELSE
Result:=False;
END;
end.
Otro Formulario lo llamo asi
Código Delphi
[-]
IF f_VerMsg(0)=True THEN
ShowMessage('Es Igual a 0')
ELSE
ShowMessage('Es Distinto a Cero');