[ecfisa]

Hola DOS.

No podes pasar un valor de ese modo a una consulta SQL.

O compones la cadena previamente, o mejor aún, le envias el valor como parámetro:

Código Delphi [-]
procedure TForm27.BitBtn2Click(Sender: TObject);
begin
  Form29.Quickrep1.Preview;// va al formulario en donde se mostrara
  Form27.Close;    //cierra el formulario que contiene los botones de opcion
  with Form29.Query1 do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM TURNOPELU');
    SQL.Add('WHERE FECHA = :PFECHA');
    ParamByName('PFECHA').AsDate := Now;
    Open
  end;
  ...
end;

Saludos.