[Marchd]

Ok tenias razon Muchas Gracias
El Codigo quedo asi

RBCedula, RBApellido y RB NOmbre, son Radio Button
Dato_Buscado: es donde guardo lo que el usuario quiere buscar
s: Guardo la seleccion de la columna a buscar

Código Delphi [-]
procedure Tform2.RxMemoryData1FilterRecord(DataSet: TDataSet;
  var Accept: Boolean);
  var Dato_Buscado,s:string;
begin
  if not RBCedula.Checked and not RBApellido.Checked and not RBNombre.Checked then
  begin
    showmessage('Debe Seleccionar la Columna donde Desea Buscar');
    RxMemoryData1.Filtered:=false;
  end
  else
  begin
    if  EditBusqueda.Text<>'' then
    begin
      if RBCedula.Checked then
       s:='Cedula'
       else
       if RBApellido.Checked then
         s:='Apellido'
       else
        if RBNombre.Checked then
        s:='Nombre';
          Dato_Buscado:=(EditBusqueda.text);
          Accept := AnsiContainsText(RxMemoryData1.FieldByName(s).AsString,Dato_Buscado);
    end
    else
      showmessage('Introducir Busqueda');
  end;
end;

Todo funcion muy bien Gracias de verdad muchas gracias. Muy bueno este foro