文字列をJIS X 0201形式に変換してバイトデータとして送りたいのですが
皆目検討も付きません

テーブル表を作って
for i := 0 to Length(sData) -1 do
begin
　if sData[i] = $41 then bData := $41
　else if sData[i] = $42 then bData := $42
end.......

とやるしか方法はないのでしょうか
end;