Verificando se uma string contém uma hora válida ii

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.');