직접 16비트 아스키코드로 바꾸는 방법은 없는것 같아서 다음과 같이 해 보았더니 잘 되는군요.
직접 16비트 아스키코드로 바꾸는 방법이 없는게 맞으면 다음 코드를 참고로 함수를 만들어 보시기 바랍니다.
DelphiHelp 에서 IntToHex부분을 보시면 도움이 될 겁니다.

procedure TForm1.Button1Click(Sender: TObject);
var
  Str: String;  i: Integer;
begin
  Str:=Edit1.Text;
  for i:=1 to Length(Str) do
    Label1.Caption:=Label1.Caption+IntToHex(Ord(Str[i]), 2);
end;

김영호 님이 쓰신 글 :
: 제목 그대로 입니다.
:
: 문자열을 ASCII 코드로 알고 싶습니다.
:
: 예를 들어 'ABC' 라는 문자열을
:
: 아스키 코드 '414243' 이라는 16진수로 표현하고자 합니다.
:
: 즉... 'ABC' 를 입력하면  변환하여 '414243' 으로 변환되는 펑션을 만들고자 합니다.
: 
:
: 이틀동안 헤메다가 도저히 안되겠다 싶어 질문 남깁니다. ㅠㅡㅠ
: 도와주십시요..