diff --git a/Client/UfrmAccountControl.lfm b/Client/UfrmAccountControl.lfm
index ad09917..6a18568 100644
--- a/Client/UfrmAccountControl.lfm
+++ b/Client/UfrmAccountControl.lfm
@@ -15,7 +15,7 @@ object frmAccountControl: TfrmAccountControl
   OnDestroy = FormDestroy
   OnShow = FormShow
   Position = poOwnerFormCenter
-  LCLVersion = '0.9.27'
+  LCLVersion = '0.9.29'
   object tbMain: TToolBar
     Left = 0
     Height = 26
@@ -95,9 +95,10 @@ object frmAccountControl: TfrmAccountControl
         Text = 'Accesslevel'
         Width = 100
       end>
+    Header.DefaultHeight = 17
     Header.Options = [hoColumnResize, hoDrag, hoVisible]
     Header.ParentFont = True
-    Header.Style = hsPlates
+    Header.Style = hsFlatButtons
     Images = ilAccesslevel
     TabOrder = 1
     TreeOptions.AutoOptions = [toAutoScrollOnExpand, toAutoTristateTracking, toAutoDeleteMovedNodes]
@@ -110,7 +111,6 @@ object frmAccountControl: TfrmAccountControl
     OnGetImageIndex = vstAccountsGetImageIndex
   end
   object ilToolbar: TImageList
-    Masked = False
     left = 144
     Bitmap = {
       4C69040000001000000010000000000000000000000000000000000000000000
@@ -245,7 +245,6 @@ object frmAccountControl: TfrmAccountControl
     }
   end
   object ilAccesslevel: TImageList
-    Masked = False
     left = 176
     Bitmap = {
       4C69040000001000000010000000000000000000000000000000000000000000
diff --git a/Client/UfrmAccountControl.pas b/Client/UfrmAccountControl.pas
index 9c4ad9e..5923afe 100644
--- a/Client/UfrmAccountControl.pas
+++ b/Client/UfrmAccountControl.pas
@@ -1,411 +1,411 @@
-(*
- * CDDL HEADER START
- *
- * The contents of this file are subject to the terms of the
- * Common Development and Distribution License, Version 1.0 only
- * (the "License").  You may not use this file except in compliance
- * with the License.
- *
- * You can obtain a copy of the license at
- * http://www.opensource.org/licenses/cddl1.php.
- * See the License for the specific language governing permissions
- * and limitations under the License.
- *
- * When distributing Covered Code, include this CDDL HEADER in each
- * file and include the License file at
- * http://www.opensource.org/licenses/cddl1.php.  If applicable,
- * add the following below this CDDL HEADER, with the fields enclosed
- * by brackets "[]" replaced with your own identifying * information:
- *      Portions Copyright [yyyy] [name of copyright owner]
- *
- * CDDL HEADER END
- *
- *
- *      Portions Copyright 2008 Andreas Schneider
- *)
-unit UfrmAccountControl;
-
-{$mode objfpc}{$H+}
-
-interface
-
-uses
-  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls,
-  VirtualTrees, Math, UEnhancedMemoryStream, UEnums;
-
-type
-
-  { TfrmAccountControl }
-
-  TfrmAccountControl = class(TForm)
-    ilToolbar: TImageList;
-    ilAccesslevel: TImageList;
-    tbMain: TToolBar;
-    tbRefresh: TToolButton;
-    tbAddUser: TToolButton;
-    tbEditUser: TToolButton;
-    tbDeleteUser: TToolButton;
-    tbSeparator1: TToolButton;
-    vstAccounts: TVirtualStringTree;
-    procedure tbEditUserClick(Sender: TObject);
-    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
-    procedure FormCreate(Sender: TObject);
-    procedure FormDestroy(Sender: TObject);
-    procedure FormShow(Sender: TObject);
-    procedure tbAddUserClick(Sender: TObject);
-    procedure tbDeleteUserClick(Sender: TObject);
-    procedure tbRefreshClick(Sender: TObject);
-    procedure vstAccountsDblClick(Sender: TObject);
-    procedure vstAccountsFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
-    procedure vstAccountsGetImageIndex(Sender: TBaseVirtualTree;
-      Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
-      var Ghosted: Boolean; var ImageIndex: Integer);
-    procedure vstAccountsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
-      Column: TColumnIndex; TextType: TVSTTextType; var CellText: UTF8String);
-  protected
-    procedure OnModifyUserResponse(ABuffer: TEnhancedMemoryStream);
-    procedure OnDeleteUserResponse(ABuffer: TEnhancedMemoryStream);
-    procedure OnListUsersPacket(ABuffer: TEnhancedMemoryStream);
-    function FindNode(AUsername: string): PVirtualNode;
-  end;
-
-var
-  frmAccountControl: TfrmAccountControl;
-
-implementation
-
-uses
-  UdmNetwork, UPacket, UPacketHandlers, UAdminHandling, UfrmEditAccount;
-
-type
-  PAccountInfo = ^TAccountInfo;
-  TAccountInfo = record
-    Username: string;
-    AccessLevel: TAccessLevel;
-    Regions: TStringList;
-  end;
-  
-  { TModifyUserPacket }
-
-  TModifyUserPacket = class(TPacket)
-    constructor Create(AUsername, APassword: string; AAccessLevel: TAccessLevel;
-      ARegions: TStrings);
-  end;
-  
-  { TDeleteUserPacket }
-
-  TDeleteUserPacket = class(TPacket)
-    constructor Create(AUsername: string);
-  end;
-  
-  { TRequestUserListPacket }
-
-  TRequestUserListPacket = class(TPacket)
-    constructor Create;
-  end;
-
-{ TModifyUserPacket }
-
-constructor TModifyUserPacket.Create(AUsername, APassword: string;
-  AAccessLevel: TAccessLevel; ARegions: TStrings);
-var
-  regionCount: Byte;
-  i: Integer;
-begin
-  inherited Create($03, 0);
-  FStream.WriteByte($05);
-  FStream.WriteStringNull(AUsername);
-  FStream.WriteStringNull(APassword);
-  FStream.WriteByte(Byte(AAccessLevel));
-
-  regionCount := Min(ARegions.Count, 256);
-  FStream.WriteByte(regionCount);
-
-  for i := 0 to regionCount - 1 do
-    FStream.WriteStringNull(ARegions.Strings[i]);
-end;
-
-{ TDeleteUserPacket }
-
-constructor TDeleteUserPacket.Create(AUsername: string);
-begin
-  inherited Create($03, 0);
-  FStream.WriteByte($06);
-  FStream.WriteStringNull(AUsername);
-end;
-
-{ TRequestUserListPacket }
-
-constructor TRequestUserListPacket.Create;
-begin
-  inherited Create($03, 0);
-  FStream.WriteByte($07);
-end;
-
-{ TfrmAccountControl }
-
-procedure TfrmAccountControl.FormCreate(Sender: TObject);
-begin
-  vstAccounts.NodeDataSize := SizeOf(TAccountInfo);
-  
-  AssignAdminPacketHandler($05, TPacketHandler.Create(0, @OnModifyUserResponse));
-  AssignAdminPacketHandler($06, TPacketHandler.Create(0, @OnDeleteUserResponse));
-  AssignAdminPacketHandler($07, TPacketHandler.Create(0, @OnListUsersPacket));
-end;
-
-procedure TfrmAccountControl.FormClose(Sender: TObject;
-  var CloseAction: TCloseAction);
-begin
-  CloseAction := caHide;
-end;
-
-procedure TfrmAccountControl.tbEditUserClick(Sender: TObject);
-var
-  selected: PVirtualNode;
-  accountInfo: PAccountInfo;
-  regions: TStrings;
-begin
-  selected := vstAccounts.GetFirstSelected;
-  if selected <> nil then
-  begin
-    accountInfo := vstAccounts.GetNodeData(selected);
-    with frmEditAccount do
-    begin
-      edUsername.Text := accountInfo^.Username;
-      edUsername.Color := clBtnFace;
-      edUsername.ReadOnly := True;
-      edPassword.Text := '';
-      lblPasswordHint.Visible := True;
-      SetAccessLevel(accountInfo^.AccessLevel);
-      SetRegions(accountInfo^.Regions);
-      if ShowModal = mrOK then
-      begin
-        regions := GetRegions;
-        dmNetwork.Send(TModifyUserPacket.Create(edUsername.Text,
-          edPassword.Text, GetAccessLevel, regions));
-        regions.Free;
-      end;
-    end;
-  end;
-end;
-
-procedure TfrmAccountControl.FormDestroy(Sender: TObject);
-begin
-  if AdminPacketHandlers[$05] <> nil then FreeAndNil(AdminPacketHandlers[$05]);
-  if AdminPacketHandlers[$06] <> nil then FreeAndNil(AdminPacketHandlers[$06]);
-  if AdminPacketHandlers[$07] <> nil then FreeAndNil(AdminPacketHandlers[$07]);
-end;
-
-procedure TfrmAccountControl.FormShow(Sender: TObject);
-begin
-  tbRefreshClick(Sender);
-end;
-
-procedure TfrmAccountControl.tbAddUserClick(Sender: TObject);
-var
-  regions: TStrings;
-begin
-  with frmEditAccount do
-  begin
-    edUsername.Text := '';
-    edUsername.Color := clWindow;
-    edUsername.ReadOnly := False;
-    edPassword.Text := '';
-    lblPasswordHint.Visible := False;
-    cbAccessLevel.ItemIndex := 2;
-    SetRegions(nil);
-    if ShowModal = mrOK then
-    begin
-      regions := GetRegions;
-      dmNetwork.Send(TModifyUserPacket.Create(edUsername.Text, edPassword.Text,
-        GetAccessLevel, regions));
-      regions.Free;
-    end;
-  end;
-end;
-
-procedure TfrmAccountControl.tbDeleteUserClick(Sender: TObject);
-var
-  selected: PVirtualNode;
-  accountInfo: PAccountInfo;
-begin
-  selected := vstAccounts.GetFirstSelected;
-  if selected <> nil then
-  begin
-    accountInfo := vstAccounts.GetNodeData(selected);
-    if MessageDlg('Confirmation', Format('Do you really want to delete "%s"?',
-      [accountInfo^.Username]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
-      dmNetwork.Send(TDeleteUserPacket.Create(accountInfo^.Username));
-  end;
-end;
-
-procedure TfrmAccountControl.tbRefreshClick(Sender: TObject);
-begin
-  dmNetwork.Send(TRequestUserListPacket.Create);
-end;
-
-procedure TfrmAccountControl.vstAccountsDblClick(Sender: TObject);
-begin
-  tbEditUserClick(Sender);
-end;
-
-procedure TfrmAccountControl.vstAccountsFreeNode(Sender: TBaseVirtualTree;
-  Node: PVirtualNode);
-var
-  accountInfo: PAccountInfo;
-begin
-  accountInfo := vstAccounts.GetNodeData(Node);
-  accountInfo^.Username := '';
-  if accountInfo^.Regions <> nil then FreeAndNil(accountInfo^.Regions);
-end;
-
-procedure TfrmAccountControl.vstAccountsGetImageIndex(Sender: TBaseVirtualTree;
-  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
-  var Ghosted: Boolean; var ImageIndex: Integer);
-var
-  accountInfo: PAccountInfo;
-begin
-  if Column = 0 then
-  begin
-    accountInfo := Sender.GetNodeData(Node);
-    case accountInfo^.AccessLevel of
-      alNone: ImageIndex := 0;
-      alView: ImageIndex := 1;
-      alNormal: ImageIndex := 2;
-      alAdministrator: ImageIndex := 3;
-    end;
-  end;
-end;
-
-procedure TfrmAccountControl.vstAccountsGetText(Sender: TBaseVirtualTree;
-  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
-  var CellText: UTF8String);
-var
-  accountInfo: PAccountInfo;
-begin
-  accountInfo := Sender.GetNodeData(Node);
-  case Column of
-    1: CellText := UTF8Encode(accountInfo^.Username);
-    2: CellText := UTF8Encode(GetAccessLevelString(accountInfo^.AccessLevel));
-  else
-    CellText := '';
-  end;
-end;
-
-procedure TfrmAccountControl.OnModifyUserResponse(ABuffer: TEnhancedMemoryStream);
-var
-  node: PVirtualNode;
-  modifyStatus: TModifyUserStatus;
-  username: string;
-  accountInfo: PAccountInfo;
-  i, regions: Integer;
-begin
-  modifyStatus := TModifyUserStatus(ABuffer.ReadByte);
-  username := ABuffer.ReadStringNull;
-  case modifyStatus of
-    muAdded:
-      begin
-        node := vstAccounts.AddChild(nil);
-        accountInfo := vstAccounts.GetNodeData(node);
-        accountInfo^.Username := username;
-        accountInfo^.AccessLevel := TAccessLevel(ABuffer.ReadByte);
-        accountInfo^.Regions := TStringList.Create;
-        regions := ABuffer.ReadByte;
-        for i := 0 to regions - 1 do
-          accountInfo^.Regions.Add(ABuffer.ReadStringNull);
-
-        Messagedlg('Success', Format('The user "%s" has been added.', [username]),
-          mtInformation, [mbOK], 0);
-      end;
-    muModified:
-      begin
-        node := FindNode(username);
-        if node <> nil then
-        begin
-          accountInfo := vstAccounts.GetNodeData(node);
-          accountInfo^.AccessLevel := TAccessLevel(ABuffer.ReadByte);
-          accountInfo^.Regions.Clear;
-          regions := ABuffer.ReadByte;
-          for i := 0 to regions - 1 do
-            accountInfo^.Regions.Add(ABuffer.ReadStringNull);
-
-          Messagedlg('Success', Format('The user "%s" has been modified.', [username]),
-            mtInformation, [mbOK], 0);
-        end;
-      end;
-    muInvalidUsername:
-      MessageDlg('Error', Format('The username "%s" is not valid.', [username]),
-        mtError, [mbOK], 0);
-  end;
-end;
-
-procedure TfrmAccountControl.OnDeleteUserResponse(ABuffer: TEnhancedMemoryStream);
-var
-  node: PVirtualNode;
-  deleteStatus: TDeleteUserStatus;
-  username: string;
-begin
-  deleteStatus := TDeleteUserStatus(ABuffer.ReadByte);
-  username := ABuffer.ReadStringNull;
-  case deleteStatus of
-    duDeleted:
-      begin
-        node := FindNode(username);
-        if node <> nil then
-        begin
-          vstAccounts.DeleteNode(node);
-          Messagedlg('Success', Format('The user "%s" has been deleted.', [username]),
-            mtInformation, [mbOK], 0);
-        end;
-      end;
-    duNotFound:
-      MessageDlg('Error', Format('The user "%s" could not be deleted. Maybe ' +
-        'your list is out of date or you tried to delete yourself.', [username]),
-         mtError, [mbOK], 0);
-  end;
-end;
-
-procedure TfrmAccountControl.OnListUsersPacket(ABuffer: TEnhancedMemoryStream);
-var
-  node: PVirtualNode;
-  accountInfo: PAccountInfo;
-  i, j, count, regions: Integer;
-begin
-  vstAccounts.BeginUpdate;
-  vstAccounts.Clear;
-  count := ABuffer.ReadWord;
-  for i := 1 to count do
-  begin
-    node := vstAccounts.AddChild(nil);
-    accountInfo := vstAccounts.GetNodeData(node);
-    accountInfo^.Username := ABuffer.ReadStringNull;
-    accountInfo^.AccessLevel := TAccessLevel(ABuffer.ReadByte);
-    accountInfo^.Regions := TStringList.Create;
-    regions := ABuffer.ReadByte;
-    for j := 0 to regions - 1 do
-      accountInfo^.Regions.Add(ABuffer.ReadStringNull);
-  end;
-  vstAccounts.EndUpdate;
-end;
-
-function TfrmAccountControl.FindNode(AUsername: string): PVirtualNode;
-var
-  node: PVirtualNode;
-  accountInfo: PAccountInfo;
-begin
-  Result := nil;
-  node := vstAccounts.GetFirst;
-  while (node <> nil) and (Result = nil) do
-  begin
-    accountInfo := vstAccounts.GetNodeData(node);
-    if accountInfo^.Username = AUsername then
-      Result := node;
-    node := vstAccounts.GetNext(node);
-  end;
-end;
-
-initialization
-  {$I UfrmAccountControl.lrs}
-
-end.
-
+(*
+ * CDDL HEADER START
+ *
+ * The contents of this file are subject to the terms of the
+ * Common Development and Distribution License, Version 1.0 only
+ * (the "License").  You may not use this file except in compliance
+ * with the License.
+ *
+ * You can obtain a copy of the license at
+ * http://www.opensource.org/licenses/cddl1.php.
+ * See the License for the specific language governing permissions
+ * and limitations under the License.
+ *
+ * When distributing Covered Code, include this CDDL HEADER in each
+ * file and include the License file at
+ * http://www.opensource.org/licenses/cddl1.php.  If applicable,
+ * add the following below this CDDL HEADER, with the fields enclosed
+ * by brackets "[]" replaced with your own identifying * information:
+ *      Portions Copyright [yyyy] [name of copyright owner]
+ *
+ * CDDL HEADER END
+ *
+ *
+ *      Portions Copyright 2008 Andreas Schneider
+ *)
+unit UfrmAccountControl;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, LResources, Forms, Controls, Graphics, Dialogs, ComCtrls,
+  VirtualTrees, Math, UEnhancedMemoryStream, UEnums;
+
+type
+
+  { TfrmAccountControl }
+
+  TfrmAccountControl = class(TForm)
+    ilToolbar: TImageList;
+    ilAccesslevel: TImageList;
+    tbMain: TToolBar;
+    tbRefresh: TToolButton;
+    tbAddUser: TToolButton;
+    tbEditUser: TToolButton;
+    tbDeleteUser: TToolButton;
+    tbSeparator1: TToolButton;
+    vstAccounts: TVirtualStringTree;
+    procedure tbEditUserClick(Sender: TObject);
+    procedure FormClose(Sender: TObject; var CloseAction: TCloseAction);
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
+    procedure FormShow(Sender: TObject);
+    procedure tbAddUserClick(Sender: TObject);
+    procedure tbDeleteUserClick(Sender: TObject);
+    procedure tbRefreshClick(Sender: TObject);
+    procedure vstAccountsDblClick(Sender: TObject);
+    procedure vstAccountsFreeNode(Sender: TBaseVirtualTree; Node: PVirtualNode);
+    procedure vstAccountsGetImageIndex(Sender: TBaseVirtualTree;
+      Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
+      var Ghosted: Boolean; var ImageIndex: Integer);
+    procedure vstAccountsGetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
+      Column: TColumnIndex; TextType: TVSTTextType; var CellText: String);
+  protected
+    procedure OnModifyUserResponse(ABuffer: TEnhancedMemoryStream);
+    procedure OnDeleteUserResponse(ABuffer: TEnhancedMemoryStream);
+    procedure OnListUsersPacket(ABuffer: TEnhancedMemoryStream);
+    function FindNode(AUsername: string): PVirtualNode;
+  end;
+
+var
+  frmAccountControl: TfrmAccountControl;
+
+implementation
+
+uses
+  UdmNetwork, UPacket, UPacketHandlers, UAdminHandling, UfrmEditAccount;
+
+type
+  PAccountInfo = ^TAccountInfo;
+  TAccountInfo = record
+    Username: string;
+    AccessLevel: TAccessLevel;
+    Regions: TStringList;
+  end;
+  
+  { TModifyUserPacket }
+
+  TModifyUserPacket = class(TPacket)
+    constructor Create(AUsername, APassword: string; AAccessLevel: TAccessLevel;
+      ARegions: TStrings);
+  end;
+  
+  { TDeleteUserPacket }
+
+  TDeleteUserPacket = class(TPacket)
+    constructor Create(AUsername: string);
+  end;
+  
+  { TRequestUserListPacket }
+
+  TRequestUserListPacket = class(TPacket)
+    constructor Create;
+  end;
+
+{ TModifyUserPacket }
+
+constructor TModifyUserPacket.Create(AUsername, APassword: string;
+  AAccessLevel: TAccessLevel; ARegions: TStrings);
+var
+  regionCount: Byte;
+  i: Integer;
+begin
+  inherited Create($03, 0);
+  FStream.WriteByte($05);
+  FStream.WriteStringNull(AUsername);
+  FStream.WriteStringNull(APassword);
+  FStream.WriteByte(Byte(AAccessLevel));
+
+  regionCount := Min(ARegions.Count, 256);
+  FStream.WriteByte(regionCount);
+
+  for i := 0 to regionCount - 1 do
+    FStream.WriteStringNull(ARegions.Strings[i]);
+end;
+
+{ TDeleteUserPacket }
+
+constructor TDeleteUserPacket.Create(AUsername: string);
+begin
+  inherited Create($03, 0);
+  FStream.WriteByte($06);
+  FStream.WriteStringNull(AUsername);
+end;
+
+{ TRequestUserListPacket }
+
+constructor TRequestUserListPacket.Create;
+begin
+  inherited Create($03, 0);
+  FStream.WriteByte($07);
+end;
+
+{ TfrmAccountControl }
+
+procedure TfrmAccountControl.FormCreate(Sender: TObject);
+begin
+  vstAccounts.NodeDataSize := SizeOf(TAccountInfo);
+  
+  AssignAdminPacketHandler($05, TPacketHandler.Create(0, @OnModifyUserResponse));
+  AssignAdminPacketHandler($06, TPacketHandler.Create(0, @OnDeleteUserResponse));
+  AssignAdminPacketHandler($07, TPacketHandler.Create(0, @OnListUsersPacket));
+end;
+
+procedure TfrmAccountControl.FormClose(Sender: TObject;
+  var CloseAction: TCloseAction);
+begin
+  CloseAction := caHide;
+end;
+
+procedure TfrmAccountControl.tbEditUserClick(Sender: TObject);
+var
+  selected: PVirtualNode;
+  accountInfo: PAccountInfo;
+  regions: TStrings;
+begin
+  selected := vstAccounts.GetFirstSelected;
+  if selected <> nil then
+  begin
+    accountInfo := vstAccounts.GetNodeData(selected);
+    with frmEditAccount do
+    begin
+      edUsername.Text := accountInfo^.Username;
+      edUsername.Color := clBtnFace;
+      edUsername.ReadOnly := True;
+      edPassword.Text := '';
+      lblPasswordHint.Visible := True;
+      SetAccessLevel(accountInfo^.AccessLevel);
+      SetRegions(accountInfo^.Regions);
+      if ShowModal = mrOK then
+      begin
+        regions := GetRegions;
+        dmNetwork.Send(TModifyUserPacket.Create(edUsername.Text,
+          edPassword.Text, GetAccessLevel, regions));
+        regions.Free;
+      end;
+    end;
+  end;
+end;
+
+procedure TfrmAccountControl.FormDestroy(Sender: TObject);
+begin
+  if AdminPacketHandlers[$05] <> nil then FreeAndNil(AdminPacketHandlers[$05]);
+  if AdminPacketHandlers[$06] <> nil then FreeAndNil(AdminPacketHandlers[$06]);
+  if AdminPacketHandlers[$07] <> nil then FreeAndNil(AdminPacketHandlers[$07]);
+end;
+
+procedure TfrmAccountControl.FormShow(Sender: TObject);
+begin
+  tbRefreshClick(Sender);
+end;
+
+procedure TfrmAccountControl.tbAddUserClick(Sender: TObject);
+var
+  regions: TStrings;
+begin
+  with frmEditAccount do
+  begin
+    edUsername.Text := '';
+    edUsername.Color := clWindow;
+    edUsername.ReadOnly := False;
+    edPassword.Text := '';
+    lblPasswordHint.Visible := False;
+    cbAccessLevel.ItemIndex := 2;
+    SetRegions(nil);
+    if ShowModal = mrOK then
+    begin
+      regions := GetRegions;
+      dmNetwork.Send(TModifyUserPacket.Create(edUsername.Text, edPassword.Text,
+        GetAccessLevel, regions));
+      regions.Free;
+    end;
+  end;
+end;
+
+procedure TfrmAccountControl.tbDeleteUserClick(Sender: TObject);
+var
+  selected: PVirtualNode;
+  accountInfo: PAccountInfo;
+begin
+  selected := vstAccounts.GetFirstSelected;
+  if selected <> nil then
+  begin
+    accountInfo := vstAccounts.GetNodeData(selected);
+    if MessageDlg('Confirmation', Format('Do you really want to delete "%s"?',
+      [accountInfo^.Username]), mtConfirmation, [mbYes, mbNo], 0) = mrYes then
+      dmNetwork.Send(TDeleteUserPacket.Create(accountInfo^.Username));
+  end;
+end;
+
+procedure TfrmAccountControl.tbRefreshClick(Sender: TObject);
+begin
+  dmNetwork.Send(TRequestUserListPacket.Create);
+end;
+
+procedure TfrmAccountControl.vstAccountsDblClick(Sender: TObject);
+begin
+  tbEditUserClick(Sender);
+end;
+
+procedure TfrmAccountControl.vstAccountsFreeNode(Sender: TBaseVirtualTree;
+  Node: PVirtualNode);
+var
+  accountInfo: PAccountInfo;
+begin
+  accountInfo := vstAccounts.GetNodeData(Node);
+  accountInfo^.Username := '';
+  if accountInfo^.Regions <> nil then FreeAndNil(accountInfo^.Regions);
+end;
+
+procedure TfrmAccountControl.vstAccountsGetImageIndex(Sender: TBaseVirtualTree;
+  Node: PVirtualNode; Kind: TVTImageKind; Column: TColumnIndex;
+  var Ghosted: Boolean; var ImageIndex: Integer);
+var
+  accountInfo: PAccountInfo;
+begin
+  if Column = 0 then
+  begin
+    accountInfo := Sender.GetNodeData(Node);
+    case accountInfo^.AccessLevel of
+      alNone: ImageIndex := 0;
+      alView: ImageIndex := 1;
+      alNormal: ImageIndex := 2;
+      alAdministrator: ImageIndex := 3;
+    end;
+  end;
+end;
+
+procedure TfrmAccountControl.vstAccountsGetText(Sender: TBaseVirtualTree;
+  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
+  var CellText: String);
+var
+  accountInfo: PAccountInfo;
+begin
+  accountInfo := Sender.GetNodeData(Node);
+  case Column of
+    1: CellText := accountInfo^.Username;
+    2: CellText := GetAccessLevelString(accountInfo^.AccessLevel);
+  else
+    CellText := '';
+  end;
+end;
+
+procedure TfrmAccountControl.OnModifyUserResponse(ABuffer: TEnhancedMemoryStream);
+var
+  node: PVirtualNode;
+  modifyStatus: TModifyUserStatus;
+  username: string;
+  accountInfo: PAccountInfo;
+  i, regions: Integer;
+begin
+  modifyStatus := TModifyUserStatus(ABuffer.ReadByte);
+  username := ABuffer.ReadStringNull;
+  case modifyStatus of
+    muAdded:
+      begin
+        node := vstAccounts.AddChild(nil);
+        accountInfo := vstAccounts.GetNodeData(node);
+        accountInfo^.Username := username;
+        accountInfo^.AccessLevel := TAccessLevel(ABuffer.ReadByte);
+        accountInfo^.Regions := TStringList.Create;
+        regions := ABuffer.ReadByte;
+        for i := 0 to regions - 1 do
+          accountInfo^.Regions.Add(ABuffer.ReadStringNull);
+
+        Messagedlg('Success', Format('The user "%s" has been added.', [username]),
+          mtInformation, [mbOK], 0);
+      end;
+    muModified:
+      begin
+        node := FindNode(username);
+        if node <> nil then
+        begin
+          accountInfo := vstAccounts.GetNodeData(node);
+          accountInfo^.AccessLevel := TAccessLevel(ABuffer.ReadByte);
+          accountInfo^.Regions.Clear;
+          regions := ABuffer.ReadByte;
+          for i := 0 to regions - 1 do
+            accountInfo^.Regions.Add(ABuffer.ReadStringNull);
+
+          Messagedlg('Success', Format('The user "%s" has been modified.', [username]),
+            mtInformation, [mbOK], 0);
+        end;
+      end;
+    muInvalidUsername:
+      MessageDlg('Error', Format('The username "%s" is not valid.', [username]),
+        mtError, [mbOK], 0);
+  end;
+end;
+
+procedure TfrmAccountControl.OnDeleteUserResponse(ABuffer: TEnhancedMemoryStream);
+var
+  node: PVirtualNode;
+  deleteStatus: TDeleteUserStatus;
+  username: string;
+begin
+  deleteStatus := TDeleteUserStatus(ABuffer.ReadByte);
+  username := ABuffer.ReadStringNull;
+  case deleteStatus of
+    duDeleted:
+      begin
+        node := FindNode(username);
+        if node <> nil then
+        begin
+          vstAccounts.DeleteNode(node);
+          Messagedlg('Success', Format('The user "%s" has been deleted.', [username]),
+            mtInformation, [mbOK], 0);
+        end;
+      end;
+    duNotFound:
+      MessageDlg('Error', Format('The user "%s" could not be deleted. Maybe ' +
+        'your list is out of date or you tried to delete yourself.', [username]),
+         mtError, [mbOK], 0);
+  end;
+end;
+
+procedure TfrmAccountControl.OnListUsersPacket(ABuffer: TEnhancedMemoryStream);
+var
+  node: PVirtualNode;
+  accountInfo: PAccountInfo;
+  i, j, count, regions: Integer;
+begin
+  vstAccounts.BeginUpdate;
+  vstAccounts.Clear;
+  count := ABuffer.ReadWord;
+  for i := 1 to count do
+  begin
+    node := vstAccounts.AddChild(nil);
+    accountInfo := vstAccounts.GetNodeData(node);
+    accountInfo^.Username := ABuffer.ReadStringNull;
+    accountInfo^.AccessLevel := TAccessLevel(ABuffer.ReadByte);
+    accountInfo^.Regions := TStringList.Create;
+    regions := ABuffer.ReadByte;
+    for j := 0 to regions - 1 do
+      accountInfo^.Regions.Add(ABuffer.ReadStringNull);
+  end;
+  vstAccounts.EndUpdate;
+end;
+
+function TfrmAccountControl.FindNode(AUsername: string): PVirtualNode;
+var
+  node: PVirtualNode;
+  accountInfo: PAccountInfo;
+begin
+  Result := nil;
+  node := vstAccounts.GetFirst;
+  while (node <> nil) and (Result = nil) do
+  begin
+    accountInfo := vstAccounts.GetNodeData(node);
+    if accountInfo^.Username = AUsername then
+      Result := node;
+    node := vstAccounts.GetNext(node);
+  end;
+end;
+
+initialization
+  {$I UfrmAccountControl.lrs}
+
+end.
+