delphi const的用法

unit RadKeygen;

interface
uses Classes,SysUtils,Windows;

function fun1():string;

implementation

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

function fun1():string;

begin

end;