me imagino que el query es algo como
Código SQL
[-]
select * from Tabla1 where id_socio = :id
in en delphi algo como
Código Delphi
[-]
TTabla1.Close;
TTabla1.ParamByName('id').asString := Edit1.text;
TTabla1.open;
TTabla1.First;
TTabla1.Last;
TTabla1.RecordCount;