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.