Montando String SQL

Bom dia a todos!!

Estou montando uma consulta e pretendo fazer uma query dinâmica, para tanto, conforme for a opção do usuário, monto o texto do SQL. Só que quando monto com datas, dá um erro de ´Type mismatch in expression´
O meu código segue abaixo: Alguém pode me dar uma clareada??


Fico agradecido!!

[i:ac369bd22b]
procedure TFmSelRelato.MontaQuery;
var
ligacao:String;
data:TDateTime;
mostra:String;
begin
ligacao := ´Where´;
With FmRelCalibra do
begin
Query1.Close;
With Query1.SQL do
begin
Clear;
add(´Select * from TabEquip ´);
if DbLookUpComboBox1.Text <> ´´ then
begin
add (ligacao+ ´ tipo = ´+#39+ DbLookUpComboBox1.Text+39);
end;
if Indice > 0 then
begin
ligacao:=´ and ´;
add (ligacao+ ´ numero = ´+39 + IntToStr(Indice)+39);
end;
if MeDatade.Text <> ´ / / ´ then
begin
data:=StrtoDate(MeDatade.Text);
if ligacao <> ´Where´ then
begin
ligacao:=´ and ´;
end;
add (ligacao+ ´ dataproximacalibracao >= ´);
mostra :=FormatDateTime(´dd-mm-yyyy´,data);
add (mostra);
end;
Query1.Open;
end;[/i:ac369bd22b]