Examples Delphi

const
AGoodNightOut : Array [0..8] of string =
(
'.Lager',
'.Beer',
'.Vodka',
'.Pernod',
'.Absinth',
'.Benadictine',
'.Bacardi',
'.Kebab',
'.Woman'
);