Помогите разобраться с потоками, ниже приведенный код на виде работает а на андроиде замораживает основной поток, помогите пожалуйста разобраться в чем проблема.
procedure TForm2.Button1Click(Sender: TObject);
begin
TTask.Run(
procedure
begin
TThread.Synchronize(TThread.CurrentThread,
procedure
begin
MediaPlayer1.FileName :=
'http://cdndl.zaycev.net/228184/8640962/lana_del_rey_-_hope_is_a_dangerous_thing_for_a_woman_like_me_to_have_but_i_have_it_%28zaycev.net%29.mp3?ext.page=default';
MediaPlayer1.Play;
end);
end);
end;
end.