Treeview nach zwei Kriterien sortieren

[Luckie]

Ich habe einen Treeview mit Chat benutzern. Diesen will ich nun sortieren: Erst die onlone Benutzer alphabetisch und dann die offline Benutzer alphabetisch. Ich habe also zwei Kriterien. Nach eine zu sortieren ist kein problem, aber nach beiden?

So...

Delphi-Quellcode:

procedure TForm1.TreeView1Compare(Sender: TObject; Node1, Node2: TTreeNode;
  Data: Integer; var Compare: Integer);
var
  ShowType1, ShowType2: JabberShowType;
begin
  if (Assigned(Node1.Data)) and (Assigned(Node2.Data)) then
  begin
    ShowType1 := PUser(Node1.Data)^.ShowType;
    ShowType2 := PUser(Node2.Data)^.ShowType;

    if (ShowType1 = jshowNone) and (AnsiCompareStr(Node1.Text, Node2.Text) < 0) then
      Compare := -1
    else
      Compare := 1;
  end;
end;

...funktioniert es leider nicht. Der Treeview ist irgendwie durcheinander.