Directiva para que no pare

[tarco35]

Hola, tengo el siguiente codigo:

Código Delphi [-]
Function FechaValida(Fecha:String):Boolean;
Var
 Buena:boolean;
Begin
  Buena:=true;
  {$R-}
  try
    StrToDate(Fecha);
  except
    on E: EConvertError do Buena:=False;
  end;
  {$R+}  
  FechaValida :=buena;
End;

El caso es que aunque tengo la directiva de chequeo de rango, cuando introduzco mal la fecha, desde el entorno de delphi 6, se me para y me lanza una "raised exception" de fecha no valida... Si lo ejecuto desde windows no hay problema... Hay alguna directiva para que no se me pare y tenga que darle OK para continuar???
Gracias