[Rosenkrantz]

На форму положите два TMemo, на OnCreate повесьте вот этот код:

Код:

procedure TForm1.FormCreate(Sender: TObject);
const
  UP_CHARS = 'АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯ';
  LO_CHARS = 'абвгдежзийклмнопрстуфхцчшщъыьэюя';
var
  i: Integer;
begin
  Memo1.Clear;
  Memo2.Clear;

  for i := 1 to Length(UP_CHARS) do
    Memo1.Lines.Add(UP_CHARS[i] + ' - ' + IntToStr(Ord(UP_CHARS[i])));
  for i := 1 to Length(LO_CHARS) do
    Memo2.Lines.Add(LO_CHARS[i] + ' - ' + IntToStr(Ord(LO_CHARS[i])));
end;