Devolver valor Count en un TQuery

[bulc]

En una aplicación el TQuery no encuentra el campo. He probado en otra más sencilla y tampoco va. Para no dejar los datos en blanco he puesto el TrY-Except.
El caso es que no me funciona. A ver cómo lo ves tú.

Código Delphi [-]
procedure TForm1.Button2Click(Sender: TObject);
Var
 Dato : Integer;     Total: Integer;
BEGIN
 TRY
   Q1.Close;
   Q1.SQL.Clear; //
   Q1.SQL.Add('Select COUNT (ID) as Total FROM DCOLOR where CAT = :Medidas ' ) ;
   Q1.ParamByName('Medidas').AsString := '215X150' ;
   Q1.Open ;     // = Q.Active := True ;
   ShowMessage( 'Registros: ' + Q1.FieldByName('Total').AsString ) ;
 EXCEPT
   ShowMessage( 'Except side');
  Q1.SQL.Clear; //Time to find nº Edifil
  Q1.SQL.Text :='SELECT * FROM DCOLOR ORDER BY ID' ;
  Q1.Open;
 END;
 end;

Un saludo.
bulc

[Casimiro Notevi]

"No va", "no funciona", "no encuentra"... no es información para que se te pueda ayudar. Debes copiar exactamente el mensaje de error.
Pregunta tonta: ¿tu campo clave se llama id?

[Neftali [Germán.Estévez]]

Empezado por bulc

El caso es que no me funciona.

¿Qué número de registros te devuelve?
¿Qué muestra este ShowMessage?

Código Delphi [-]
ShowMessage( 'Registros: ' + Q1.FieldByName('Total').AsString );

¿Si lanzas esta consulta directamente, qué te evuelve?

Código SQL [-]
Select COUNT (ID) as Total FROM DCOLOR where CAT = '215X150'