problema al validar fecha

[sargento elias]

buenass!

Tengo un problema con el rxdatedit, He creado una funcion para validar la fecha

Código SQL [-]
 
function funFecha(fecha : string) : boolean;
begin
  if fecha <> '  /  /    ' then begin
    try
      StrToDate(fecha);
      Result := True;
    except
      on exception do
        Result := False;
    end;
  end;
end;

Pero cuando voy a realizar el if funfecha(dateedit.text) = false then, no me entra en la función y me saca un error del tipo:

Econverterror with message '50/50/50' is not a valid date.

Si alguien puede ayudarme para pasarlo adate please?