diff --git a/ptop.conf b/ptop.conf
new file mode 100644
index 0000000..6d5d250
--- /dev/null
+++ b/ptop.conf
@@ -0,0 +1,98 @@
+end=crbefore,dindonkey,dindent,crafter,capital
+[end]=if,then,else,while,with,for,record,try,finally,except,class,object,private,public,protected,published,casevar,colon,equals
+begin=crbefore,dindonkey,inbytab,crafter,capital
+[begin]=var,label,const,type
+if=spaft,gobsym,inbytab,capital
+then=capital
+else=crbefore,dindonkey,inbytab,capital
+[else]=if,then,else
+proc=dindonkey,spaft,capital
+[proc]=var,label,const,type
+var=blinbefore,dindonkey,spaft,inbytab,capital
+[var]=var,label,const,type
+of=crsupp,spbef,spaft,capital
+while=spaft,gobsym,inbytab,crafter,capital
+do=crsupp,spbef,capital
+case=spaft,gobsym,inbytab,crafter,capital
+with=spaft,gobsym,inbytab,crafter,capital
+for=spaft,gobsym,inbytab,crafter,capital
+repeat=inbytab,crafter,capital
+until=crbefore,dindonkey,dindent,spaft,gobsym,crafter,capital
+[until]=if,then,else,while,with,for,colon,equals
+func=dindonkey,spaft,capital
+[func]=var,label,const,type
+label=blinbefore,spaft,inbytab,capital
+const=blinbefore,dindonkey,spaft,inbytab,capital
+[const]=var,label,const,type
+type=blinbefore,dindonkey,spaft,inbytab,capital
+[type]=var,label,const,type
+record=inbyindent,crafter,capital
+[record]=end
+string=
+prog=blinbefore,spaft,capital
+asm=
+try=crbefore,inbytab,crafter,capital
+finally=crbefore,dindent,inbytab,crafter,capital
+[finally]=try
+except=crbefore,dindent,inbytab,crafter,capital
+[except]=try
+raise=
+class=inbyindent,capital
+object=inbyindent,capital
+constructor=
+destructor=
+inherited=
+property=
+private=crbefore,dindonkey,spaft,inbytab,capital
+[private]=end,private,public,protected,published
+public=crbefore,dindonkey,spaft,inbytab,capital
+[public]=end,private,public,protected,published
+protected=crbefore,dindonkey,spaft,inbytab,capital
+[protected]=end,private,public,protected,published
+published=crbefore,dindonkey,spaft,inbytab,capital
+[published]=end,private,public,protected,published
+initialization=
+finalization=
+inline=
+library=blinbefore,spaft,capital
+interface=blinbefore,crafter,capital
+implementation=blinbefore,dindonkey,crafter,capital
+[implementation]=end,var,label,const,type,property
+read=
+write=
+unit=blinbefore,spaft,capital
+and=
+arr=
+div=
+down=
+file=
+goto=
+in=
+mod=
+not=
+nil=
+or=
+set=
+to=
+virtual=
+uses=blinbefore,spaft,capital
+casevar=spaft,gobsym,inbytab,crafter,capital
+ofobject=
+becomes=spbef,spaft,gobsym,capital
+notequal=
+lessorequal=
+greaterorequal=
+delphicomment=crafter
+dopencomment=
+dclosecomment=
+opencomment=crsupp,capital
+closecomment=crsupp,capital
+semicolon=crsupp,dindonkey,crafter,capital
+[semicolon]=if,then,else,while,with,for,colon,equals
+colon=inbytab,capital
+equals=spbef,spaft,inbytab,capital
+openparen=gobsym,capital
+closeparen=
+period=crsupp,capital
+endoffile=
+other=