no puedo correr consulta

[marcelofabiani]

Estoy tratando de hacer correr esta consulta

procedure Tfrmbusqueda.Button1Click(Sender: TObject);
var
busqueda:string;
begin
busqueda:='select * from :tabla where :campo like'''+ edit1.text+'%''';
dm.qybusqueda.Close;
dm.qybusqueda.SQL.Clear;
dm.qybusqueda.SQL.Add(busqueda);
dm.qybusqueda.Params[0].AsString:=combobox1.Text;
dm.qybusqueda.Params[1].AsString:=cb2.Text;
dm.qybusqueda.Open;
end;

Pero cuando la hago correr me sale un error en ingles de algo relacionado a un token podria alguien decirme que estoy haciendo mal

Esto es para realizar una busqueda en una base de datos mysql, lo que pienso es que el like lo estoy utilizando mal

Ojala alguien me guie por el camino correcto