[marcoszorrilla]

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin

  if Length(edit1.text)> 0 then
  begin
  Adoquery1.filter:='Titulo Like '+QuotedStr(Edit1.Text+'*');
  Adoquery1.Filtered:=True;
  end
  else
  ShowMessage('Cadena vacía inténtelo de nuevo');

end;

Un Saludo.