Обновить форму FMX

procedure TMyThread.Execute;
 var
  LItem: TListviewItem;
begin
  showmessage('начал');
TabbedwithNavigationForm.ListBox1.Visible:=false;
 TabbedwithNavigationForm.ListBox1.BeginUpdate;
   TabbedwithNavigationForm.ListBox1.Items.Clear;
      TabbedwithNavigationForm.ListBox1.Clear;
 TabbedwithNavigationForm.ListBox1.EndUpdate;
TabbedwithNavigationForm.AniIndicator1.Visible:=true;
TabbedwithNavigationForm.AniIndicator1.enabled:=true;
  showmessage('всескрыл');
 
sessionId:=((TabbedwithNavigationForm.HTTPRIO1 as AnalyticalServerWS).signIn('логин','пароль').sessionId); //проходим авторизацию. получаем ID сессии
_getObjectSet:=(TabbedwithNavigationForm.HTTPRIO1 as AnalyticalServerWS).getObjectSet(sessionId).objects ;
indexI:=length(_getObjectSet)-1;// получаем размер массива
 
     showmessage('далее цикл');
 
    for i := 0 to indexI {- 1} do
  begin
    obj := TCustomer.Create(_getObjectSet[i].id,_getObjectSet[i].objectName,_getObjectSet[i].objectType);
    if Lst.IndexOf(obj) = -1 then Lst.Add(obj);
  end;
  showmessage('далее цикл 2');
 
   for I := 0 to lst.Count-1 do
      begin
 TabbedwithNavigationForm.ListBox1.BeginUpdate;
  try
 
TabbedwithNavigationForm.ListBox1.Items.AddObject(lst[i].qobjectName,lst[i]);
  finally
    TabbedwithNavigationForm.Listbox1.EndUpdate;
  end;
 
      end;
 
          id.Clear;
  lst.Clear;
TabbedwithNavigationForm.AniIndicator1.Visible:=false;
TabbedwithNavigationForm.AniIndicator1.enabled:=false;
 TabbedwithNavigationForm.Button4.Enabled:=true;
TabbedwithNavigationForm.Listbox1.Visible:=true;
 
  showmessage('выполнил');
 
  Logins.Destroy();
 
end;

TabbedwithNavigationForm.AniIndicator1.enabled:=false;
TabbedwithNavigationForm.AniIndicator1.Visible:=false;

Self.Repaint;

Application.ProcessMessages