Como guardar en una varible el resultado de un conteo mediante un Query?

[Ricsato]

Hola, Saludos.

Quiero preguntarles como puedo almacenar en una variable, el valor que obtengo de un conteo utilizando un Query, lo cual hago de la siguiente forma:

do Query begin
add('Select Count(*) as Siglas from Transportes.db');
add('where Zona="3/a."');
end;

Este Query me regresa el valor del conteo en el campo siglas, el cual muestro en un DataSource, pero unicamente sale ese valor en un columna, ahora, ese valor resultado del conteo con el Query, necesito manipularlo en una variable a la cual pueda tener acceso y realizar otras operaciones con ese valor.

Espero que alguno de ustedes pueda ayudarme, se lo agradecere mucho.

[delphi.com.ar]

¿do Query begin?....

var
  iResult: Integer;
begin
  With Query do
  begin
    Sql.Text := 'Select Count(*) as Siglas ' + 
                  'from Transportes.db ' + 
                 'where Zona=''3/a.''';
    Open;
    iResult := Field[0].AsInteger;
    Close;
  end;

Saludos!

[Ricsato]

Muchisimas gracias, me fue de mucha ayuda.