Tienes que crear dos parametros en tu consulta por ejemplo ->
Código SQL
[-]
size="1">Select DatosPersonales_id,DAT_Apellido + ', ' + DAT_Nombres,
From DatosPersonales.db
Where DAT_Apellido >= 
ApellidoDesde
and DAT_Apellido <= ApellidoHasta
luego en el evento ->
Código Delphi
[-]
procedure TdmQuerys.qBuscarDatosBeforeOpen(DataSet: TDataSet);
begin
qBuscarDatos.ParamByName('pApellidoDesde').AsString :=
frmBuscarDatosPersonales.eApellido.Text + ' ';
qBuscarDatos.ParamByName('pApellidoHasta').AsString :=
frmBuscarDatosPersonales.eApellido.Text + '';
end;
donde eApellidoDesde y Hasta son dos edit en los cuales ingresas la primer letra y la última
Saludos