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

[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!