主程序装载脚本 procedure TForm1.FormCreate(Sender: TObject); begin fsScript1.Clear; fsScript1.Parent := fsGlobalUnit; fsScript1.AddComponent(Form1); fsScript1.Lines.LoadFromFile('1.txt'); fsScript1.Run; end; 1.txt文件 uses 'lang.txt'; //引用公用的语言单元 procedure button1click(sender: tobject); begin showmessage('hello'); end; begin with form1 do begin button1.caption := const_append; button2.caption := const_save; button1.onclick := @button1click; end; end. Lang.txt公用的语言单元 const const_append = '增加'; const_save = '保存'; begin end. 使用不同lang.txt文件来对应不同的语言即可。