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;