diff --git a/AG.PascalTokenizer.pas b/AG.PascalTokenizer.pas
index d75b24f..f0a490a 100644
--- a/AG.PascalTokenizer.pas
+++ b/AG.PascalTokenizer.pas
@@ -107,7 +107,12 @@ var
 
 function IsComment(s:string):boolean;
 begin
-Result:=s.startswith('{')or s.startswith('(*')or s.startswith('//');
+Result:=(s.startswith('{')and not s.startswith('{$')) or s.startswith('(*')or s.startswith('//');
+end;
+
+function IsDirective(s:string):boolean;
+begin
+Result:=s.startswith('{$');
 end;
 
 function IsName(s:string):boolean;