Como trocar o texto do label em tempo de execução no delphi android

Como fazer para trocar e mostrar o texto em um Label em delphi 10.3 para Android em tempo de execução sem usar o comando Application.ProcessMessages depois de cada sleep, a exemplo do código abaixo? Preciso mostrar o primeiro texto, depois o segundo, depois o terceiro e por fim o quarto texto, com um lapso de tempo entre eles.

procedure TForm1.Button2Click(Sender: TObject);
begin
Label1.Text := ''Texto1'';
sleep(1000);

Label1.Text := ''Texto2'';
sleep(1000);

Label1.Text := ''Texto3'';
sleep(1000);

Label1.Text := ''Texto4'';
sleep(1000);
end;