no puedo correr consulta

[mosorio]

Hola a todos!
Creo que el problema esta al crear la sentencia SQL y las comillas, por eso cuando hago una sentencia que va a ser fija mediante código la creo en una constante asignandole variables de %s y luego construyo la consulta.
Lo hago de la siguiente forma:

procedure Tfrmbusqueda.Button1Click(Sender: TObject);
const
SQL = 'Select * From %s Where %s Like %s';

begin
dm.qybusqueda.Close;
dm.qybusqueda.SQL.Clear;
dm.qybusqueda.SQL.Add(Format(SQL, [Tabla, Campo, QuotedStr(Condicion+'%')]));
dm.qybusqueda.Open;
end;

Espero que con esto les sirva y continúen en el desarrollo

Saludos