按钮执行时的FMX更新控制

Question

我需要在按钮事件运行时更新FMX UI。 我有这样的东西：

procedure TfrmMain.Buttonclick;
begin
Show;
Update('xxxx');
Do something
Update('yyy');
Do something
hide;
end;

procedure TfrmMain.show;
begin
panel1.visible:=true;
end;


procedure TfrmMain.hide;
begin
panel1.visible:=false;
end;


procedure TfrmMain.update(txt:string);
begin
label1.caption:=txt;
end;

当然，这只是一个例子。

我的问题是：如何在执行按钮时更新UI？

在柏林，东京，一切都很好。在RIO中，UI未更新。