185 - Verificar se uma string é uma data válida

Escreva a função abaixo:

function tbStrIsDate(const S: string): boolean;

begin

  try

  StrToDate(S);

  Result := true;

  except

  Result := false;

  end;

end;

Para testar:
- Coloque um Edit no form;
- Coloque um Button;
- No evento OnClick do botão coloque o código abaixo:

if tbStrIsDate(Edit1.Text) then

  ShowMessage(Edit1.Text + ' é data válida.')

else

  ShowMessage(Edit1.Text + ' NÃO é data válida.');