{$
}
(*$
*)
{
}
(*
*)
//
'
'
)
(
]
[
.
,
;
^
@
:=
:
=
<>
>
<
>=
<=
+
-
/
*
and
array
as
at
asm
begin
case
class
const
constructor
destructor
dispinterface
div
do
downto
else
end
except
exports
file
final
finalization
finally
for
function
goto
if
implementation
in
inherited
initialization
inline
interface
is
label
mod
not
object
of
on
or
out
packed
procedure
program
property
raise
record
repeat
resourcestring
set
sealed
shl
shr
static
string
then
threadvar
to
try
type
unit
unsafe
until
uses
var
while
with
xor
absolute
abstract
assembler
automated
cdecl
contains
default
deprecated
dispid
dynamic
export
external
far
forward
implements
index
library
local
message
name
namespaces
near
nodefault
overload
override
package
pascal
platform
private
protected
public
published
read
readonly
register
reintroduce
requires
resident
safecall
stdcall
stored
varargs
virtual
write
writeonly
shortint
byte
char
smallint
integer
word
longint
cardinal
boolean
bytebool
wordbool
longbool
real
single
double
extended
comp
currency
pointer
false
nil
self
true