Una modificación para la respuesta de Pablo Carlos:
Código Delphi
[-]
procedure TdmQuerys.qBuscarDatosBeforeOpen(DataSet: TDataSet);
begin
qBuscarDatos.ParamByName('pApellidoDesde').AsString :=
frmBuscarDatosPersonales.eApellido.Text + ' ';
qBuscarDatos.ParamByName('pApellidoHasta').AsString :=
frmBuscarDatosPersonales.eApellido.Text + 'zzzzzzzzzzzzzzzzzzzzzzzz';
end;
un saludo