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