[aposi]

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; //Válido   
IBQuery1.Open;
nRegsGrupo:=IBQuery1.Fields[0].asInteger ; //Válido    
CDSRopa1.Active:=True;     
ShowMessage('Elementos Grupo:' + IntToSTr(nRegsGrupo) );

Primero tienes que abrir el query antes de ver el resultado