Hola
Te sugiero que utilices las etiquetas.. así tu codigo será más legible y presentable y quedaria así
Código Delphi
[-]
procedure TF_consultaSocio.E_consulta_socioChange(Sender: TObject);
var
Filtro : String;
begin
If (E_consulta_socio.text <> '') then
begin
Modulo.T_socio.Filtered := False;
If C_buscarSocio.Text = 'NºSocio' then
Filtro := 'NºSocio like '''+E_consulta_socio.Text+'*'''
else
If C_buscarSocio.Text = 'DNI' then
Filtro := 'DNI like '''+E_consulta_socio.Text+ '*'''
else
If C_buscarSocio.Text = 'Apellido' then
Filtro := 'Apellido Like '''+E_consulta_socio.Text+ '*''';
Modulo.T_socio.Filter := Filtro;
Modulo.T_socio.Filtered := True;
end
else
Modulo.T_socio.Filtered := False;
end;