TBuffer class
function PeekChar: TBuffChar; {$ifdef UseInline} inline; {$endif}
The PeekChar method returns the next unicode character without advancing the Position.
As the Position is not advanced subsequent calls to PeekChar always return the same character.