Numbered list with Delphi 7