Se le pasa como parámetro un carácter y devuelve un valor entero (integer) equivalente al código ASCII del carácter introducido.

Ejemplo de uso:

function sumarCaracter (caracter : char; numSumar : integer; sumar : boolean) : string;

begin

  if sumar then

    Result := chr (ord(caracter) + numSumar)

  else

    Result :=  chr (ord(caracter) - numSumar);

end;

Funciones Delphi