unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls;type  TForm1 = class(TForm)    Button1: TButton;    procedure Button1Click(Sender: TObject);  end;var  Form1: TForm1;implementation{$R *.dfm}function GB2Big(GB: string): string;var  Len: Integer;begin  Len := Length(GB);  SetLength(Result, Len);  LCMapString(GetUserDefaultLCID, LCMAP_TRADITIONAL_CHINESE, PChar(GB), Len, PChar(Result), Len);end;function Big2GB(Big: string): string;var  Len: Integer;begin  Len := Length(Big);  SetLength(Result, Len);  LCMapString(GetUserDefaultLCID, LCMAP_SIMPLIFIED_CHINESE, PChar(Big), Len, PChar(Result), Len);end;{调用测试}procedure TForm1.Button1Click(Sender: TObject);begin  ShowMessage(GB2Big('汉字繁简转换')); {漢字繁簡轉換}  ShowMessage(Big2GB('漢字繁簡轉換')); {汉字繁简转换}end;end.