Fórum Filtro por data #345142

Pessoal,

Preciso fazer um filtro por data, mas está dando erro. Estou utilizando um componente MaskEdit cuja data que desejo filtrar será digitada. Porém, logo no primeiro dígito aparece uma mensagem de erro. O banco utilizado é Access e tanto o campo da tabela quanto o componente TMaskEdit possuem a máscara ´00/00/0000;0;´. Agradeço quem puder me ajudar nessa questão.

Segue abaixo o código:

procedure TFrmPesquisa.MskEdtDatNasChange(Sender: TObject);
var
Data: TDateTime;
begin
DmSeguros.TbSegurados.IndexName := ´DATNAS´;
Data := strtodate(MskEdtDatNas.Text); // O erro ocorre aqui!!!
with QryPesquisa do
begin
QryPesquisa.Close;
QryPesquisa.Sql.Clear;
QryPesquisa.Sql.Add(´Select * from Segurados Where DatNas = :Data Order By NomSeg´);
QryPesquisa.ParamByName(´Data´).AsDate := strtodate(MskEdtDatNas.Text);
QryPesquisa.Open;
if QryPesquisa.IsEmpty then
MessageDlg(´Não existem dados.´, mtInformation, [mbOk], 0);
end;
end;