delphi const的用法

unit RadKeygen;

interface
uses Classes,SysUtils,Windows;

  function fun1():string;

implementation

const
  iid:Integer=;
  CSIDL_PERSONAL = $0005;
  byte1:array[..] of Byte=($);
  SHFolderDll = 'SHFolder.dll';
  UUIDservice: TGUID = '{0000FFE0-0000-1000-8000-00805F9B34FB}';
  OldPropertyNames: array of string = [
    'Position.X',
    'Position.Y'
    ];

function fun1():string;

begin

end;

新语法