[ecfisa]

Hola.

Te pongo un ejemplo que usa la tabla employee que viene con Delphi:

Código Delphi [-]
procedure TForm1.btnBuscarClick(Sender: TObject);
begin
  Query1.Close;
  Query1.SQL.Text := 'SELECT * FROM EMPLOYEE WHERE LastName LIKE :PARAM';
  Query1.ParamByName('PARAM').AsString := '%' + Edit1.Text + '%' ;
  Query1.Open;
end;

Muestra:


Saludos