{ } (* *) // ' and else inherited packed then array end initialization procedure threadvar as except inline program to asm exports interface property try begin file is raise type case final label record unit class finalization library repeat unsafe const finally mod resourcestring until constructor for nil sealed uses destructor function not set var dispinterface goto object shl while div if of shr with do implementation or static xor downto in out string at on absolute dynamic local platform requires abstract export message private resident assembler external name protected safecall automated far near public stdcall cdecl forward nodefault published stored contains implements overload read varargs default index override readonly virtual deprecated inline package register write dispid library pascal reintroduce writeonly