[vtdeleon]

Saludos

Prueba esto:

Código Delphi [-]
with AdoQuery1 do

begin
  Close;
  Sql.Text:='select campo1, campo2, from tabla1 where campo1 like :variable';
  ParamByName('Vairable').AsString:=QuoteStr('%papa%');
  Open;
end;