function NextSQLToken(var p: PAnsiChar; out Token: AnsiString; CurSection: TSQLToken): TSQLToken; overload;

TSQLToken NextSQLToken(PAnsiChar p, AnsiString Token, TSQLToken CurSection);