He aquí un ejemplo que te puede ayudar:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
var f:Integer;
aux:Char;
begin
f:=$21; aux:=Chr(f); ShowMessage(aux);end;
Saludos...

__________________
"Pedid, y se os dará; buscad, y hallaréis; llamad, y se os abrirá." Mt.7:7