procedure TFmMain.Button1Click(Sender: TObject);
var
变量: string;
begin
变量 := '中文变量';
Label1.Caption := 变量;
end;