while StealthForm.CharListBox.Items.Count > 0 do
  begin
    Char_Obj := TBaseCharacter(StealthForm.CharListBox.Items.Objects[0]);
    StealthForm.CharListBox.Items.Delete(0);

    if ValidObject(Char_Obj) then
      if Char_Obj.Stop_MainThread then
        Char_Obj.DisposeOf;
  end;

function TBaseCharacter.Stop_MainThread : Boolean;
var H : THandle;
begin
  Char_Started := False;
  LegalDisposeChar := True;
  {$IFDEF HAS_FMX}
  //Result := Self.WaitFor = 0;
  Self.WaitFor;
  Result := True;
  {$ELSE}
  RemoveQueuedEvents(Self);
  if TThread.CurrentThread.ThreadID <> MainThreadID then
    Result := WaitForSingleObject(Handle, 10000) <> WAIT_TIMEOUT
  else
  begin
    H := Handle;
    while True do
      case MsgWaitForMultipleObjects(1,H, False, 10000, QS_ALLEVENTS) of
        WAIT_OBJECT_0 : Exit(True);
        WAIT_OBJECT_0 + 1 : if Assigned(ProcessMessagesProc) then ProcessMessagesProc;
        WAIT_TIMEOUT : Exit(False);
      end;
  end;
  {$ENDIF}
end;

  RemoveQueuedEvents(Self);
  if TThread.CurrentThread.ThreadID <> MainThreadID then
    Result := WaitForSingleObject(Handle, 10000) <> WAIT_TIMEOUT
  else
  begin
    H := Handle;
    while True do
      case MsgWaitForMultipleObjects(1,H, False, 10000, QS_ALLEVENTS) of
        WAIT_OBJECT_0 : Exit(True);
        WAIT_OBJECT_0 + 1 : if Assigned(ProcessMessagesProc) then ProcessMessagesProc;
        WAIT_TIMEOUT : Exit(False);
      end;
  end;