对了，如果只是要一个语法解析的话。
使用 TParser 这个类。
这个类没有文档的，不过可以看看代码。
可以解析出来pascal语言的token
代码在classes这个单元
例如：
parser := TParser(SourceStream);
while Parser.Token <> toEOF do
begin
case Parser.Token of
toSymbol: ....
toString: ...
toInteger: ...
toFloat: ....
'{':
'}':...
'/':....
......
end;
Parser.NextToken;
end;
