Código Delphi
[-]
IBQuery1.Close;
CDSRopa1.Active:=False;
IBQuery1.SQL.Clear;
IBQuery1.SQL.Add('SELECT COUNT(*) FROM ROPA WHERE GRUPO=:sGrupo') ;
IBQuery1.ParamByName('sGrupo').asString:= sGrupo; IBQuery1.Open;
nRegsGrupo:=IBQuery1.Fields[0].asInteger ; CDSRopa1.Active:=True;
ShowMessage('Elementos Grupo:' + IntToSTr(nRegsGrupo) );
Primero tienes que abrir el query antes de ver el resultado