@deLogic: Ya iya lah, tentu bisa lah... Pake fungsi Ord.. sering2 baca manual ya..

procedure TForm1.FormCreate(Sender: TObject);
var
  A   : AnsiChar;
  C   : Char;
  W   : WideChar;
  E   : Boolean;
  I   : Integer;
  I64 : Int64;
begin
  // Set the ordinal type values
  A   := 'A';
  C   := 'C';
  W   := 'W';
  E   := True;
  I   := 22;
  I64 := 64;
  // And show the value of each
  ShowMessage('A = '+IntToStr(Ord(A)));
  ShowMessage('C = '+IntToStr(Ord(C)));
  ShowMessage('W = '+IntToStr(Ord(W)));
  ShowMessage('E = '+IntToStr(Ord(E)));
  ShowMessage('I = '+IntToStr(Ord(I)));
  ShowMessage('I64 = '+IntToStr(Ord(I64)));
end;

var
	A : AnsiString;
	HurufPertama : PAnsiChar;
begin
A := Edit1.Text;
HurufPertama := Addr(A[1]);
Edit2.Text := IntToStr(Ord(HurufPertama^));
end;

var
mychar : Char;
i	: Integer;
begin
i := StrToInt(Edit3.Text);
myChar := char(i);
ShowMessage(mychar);
end;