Consulta com query

:lol:

Estou querendo fazer a seguinte consulta onde o usuario so digite a data, o script seria assim:

SELECT Data_Cob, Contrato, Titular, Vendedor, Coordenador, Valor_Cob, Obs FROM controlrecebimento.db WHERE Data_Cob=´03/05/85´

quero fazer tipo deste jeito so que nao consigo fazer com sting so com inteiro

procedure TFrmConsulta.BtnClassificaClick(Sender: TObject);
var
OK2: boolean;
Valor: String;
begin
valor:=´´;
OK2:=InputQuery(´Classifica´,´Entre com a data:´,Valor);
if OK2 then
begin
with QuerySQL do
Begin
close;
SQL.Clear;
SQL.Add (´SELECT Data_Cob, Contrato, Titular, Vendedor, Coordenador, Valor_Cob, Obs´);
SQL.Add (´FROM controlrecebimento.db´);
SQL.Add (´WHERE Data_Cob=´);
SQL.Add (´´´);
SQL.Add (Valor);
SQL.Add (´´´);
Open;
end;