edit1に入れた文字をアスキーコード（１０進数）に変換

procedure TForm1.Button1Click(Sender: TObject);  //文字→コード
var
        s1,buf : string;

begin
        //一バイト目のアスキーコード
        s1 := edit1.text;
        buf:= inttostr(Ord(s1[1]));
        //二バイト目のアスキーコード
        edit2.text :=buf+' ' + inttostr(Ord(s1[2]));//見やすいように半角を入れている
end;

edit1に入れた数字（アスキーコード：１０進数）を文字に変換

procedure TForm1.Button2Click(Sender: TObject);  //コード→文字
var
        codenum : longint;
        s2 : string;

begin
        //アスキーコードをshift-JIS変換
        codenum    := strtoint(edit3.text);
             s2    := chr(codenum);  //char型とstring型は自動変換らしい
        edit4.text := s2;
end;