半角を全角に変換する

LCMapString APIを使います。すでに全角のものは全角のままです。
以下の例は Edit1 の内容を全角に変換し、Edit2 に結果を表示します。

■ 半角を全角にする例 
procedure TForm1.Button1Click(Sender: TObject);   
var
  Chr : array [0..255]  of  char;
begin
  Windows.LCMapString(
    GetUserDefaultLCID(),
    LCMAP_FULLWIDTH,
    PChar(Edit1.Text),
    Length(Edit1.Text) + 1,
    Chr,
    Sizeof(chr)
    );
  Edit2.Text  :=  chr;
end;