[Palmiro]

Hola... Creo haber entendido lo que estas preguntando...
No es para reclamarte nada, pero la consultas que estas haciendo es muy facil de encontrarla en el foro, ya que muchos antes que vos la hicieron, ademas encontras la respuesta mas rapido y no debes esperar a que alguien te conteste...

Si es lo que entendi que pides, a ver si esto te sirve:

Código Delphi [-]
procedure TfrmPersonasGestion.cmdBuscarClick(Sender: TObject);
begin
  if txtBuscarApellido.Text <> '' then
  begin
    if rdbApellido.Checked then
     begin
     dsPersonas.DataSet.Filter:= 'PerApe like ' + chr(39)+  txtBuscarApellido.Text+'*'+chr(39);
     dsPersonas.DataSet.Filtered:= True;
  end
  else
    if rdbNombre.Checked then
    begin
    dsPersonas.DataSet.Filter:= 'PerNom like ' + chr(39)+  txtBuscarApellido.Text+'*'+chr(39);
   dsPersonas.DataSet.Filtered:= True;
   end;
end
else
     dsPersonas.DataSet.Filtered:= False;
     lblRegistro.Caption:= 'Registro ' + IntToStr(dsPersonas.DataSet.RecNo) +' de ' + IntToStr(dsPersonas.DataSet.RecordCount);
end;

Bueno espero poder ayudado con tu duda...
Quizas no sea el mejor codigo pero funciona.... te propongo a que lo mejores..