Filtragem de datas

Bom dia a todos.
Dado o código abaixo:

Table1.Open;
Table1.Refresh;
FiltroAntigo7 := Table1.Filter;
FiltradoAntes7 := Table1.Filtered;
Table1.Filtered := False;
filtro7 := ´chave > 0´;
if (maskedit1.text <> ´ / / ´) and (maskedit2.text <> ´ / / ´) then
filtro7 := ´datacompra>=´ +quotedstr(maskedit1.text)+´ and datacompra<=´+quotedstr(maskedit2.text);
Table1.filter:= filtro7;
Table1.Filtered := true;

Gostaria que vcs analizassem esta filtragem de datas e me dissessem onde eu estou errando, pois já usei em outras aplicações e deu OK. Mas agora está uma m!@#$¬
As variáveis filtroantigo7 e filtro são string e filtradoantes é boolean.
Aceito outras formas de filtragem de datas.

Desde já sou muito grato.