ЮБ
Юля Бойко
Учитывая, что Memo в зависимости от версии демонстрирует тебе либо ANSI, либо Unicode, это будет несколько проблематично. Впрочем, первые 127 символов всюду совпадают:
var c:AnsiChar;
begin
for c:=#0 to #$7f do YrMemo.Lines.Add(Format('%s %d',[c, ord(c)]));
end;