como obtener el codigo ascii de una cadena?

[usuario87]

trate de obtener el codigo ascii de una letra que esta dentro de una variable cadena de la siguinte forma:

Código Delphi [-]
 
var
  Cadena: string;
  Cod: DWORD;
begin
  cadena:='a';
  Cod:=Ord(Cadena);
  Form1.Caption:=IntToStr(Cod);

y me sale error : incompatible types