全角ひらがなを全角カタカナに変換する

LCMapString APIを使います。すでに全角カタカナのものや、変換できない文字は変換されません。
以下の例は Edit1 の内容を全角カタカナに変換し、Edit2 に結果を表示します。

■全角ひらがなを全角カタカナに変換する例 
procedure TForm1.Button1Click(Sender: TObject);  
var
  Chr : array [0..255]  of  char;
begin
  Windows.LCMapString(
    GetUserDefaultLCID(),
    LCMAP_KATAKANA,
    PChar(Edit1.Text),
    Length(Edit1.Text) + 1,
    chr,
    Sizeof(chr)
    );
  Edit2.Text  :=  chr;
end;