0101
(*
*)
//
unit
uses
var
const
type
private
public

in
of
at
to

interface
implementation
program
library
console
exports
index

procedure
function
constructor
begin
end
result
exit
halt
raise

export
stdcall
cdecl
pascal
external

integer
cardinal
boolean
string
record
sender
array
UINT
pchar
char
long
shortint
smallint
longint
word
dword
int64
longlong
double
float
longbool
bool
hwnd
short
byte
null
nil

show
showmodal
modalresult
create
free

TStringList
TStrings
add
clear

case
break
class
while
with
for
true
false
try
finally
do
if
then
else
ifdef
undef
defined
declared
elseif
default

new
dispose
sizeof
inc
dec
upcase
lowercase
StrToInt
IntToStr
