[lmikle]

Код:

var
  C : Char;
  I : Integer;
  Buf : String;
begin
  Buf := '';
  C := 'A';
  While C <= 'Z' Do
    Begin
      Buf := Buf + C + ' = ' + Ord(C) + #13#10;
      C := Chr(Ord(C) + 1);
    End;
  ShowMessage(Buf); 
end;

Если хочется в шестнадцатеричном виде, то Buf присваивать так:

Код:

Buf := Buf + C + ' = $' + IntToHex(Ord(C)) + #13#10;

Не помню точно, может у IntToHext есть еще параметр - посмотри в хелпе.