Ayuda con esta Función

[Ledian_Fdez]

Hola Mystery la funcion DiasMes me devuelve un entero en el if con que lo comparo ???

Código Delphi [-]
if DiasMes(fecha)then  //devuelve un Integer no Boolean
  begin
    Application.MessageBox('Error en la cantidad de dias.' + #13 + 'Rectifique por favor.','SAF', MB_ICONERROR);
    result:=False;
    Exit;
  end;

Salu2,
Ledian.