logout if vip login or logoff

Const
 VipNames = ['Mateusz Dragon Wielki','Eternal Oblivion','Seromontis','Tripida'] // Enter the player name who will login in your vip and you log out.

procedure Event_VIPLogOn(ID:integer);
begin
 UpdateWorld;
 for i := 0 to VipList.Count -1 do
 begin
   If VipList.VIP[i].ID = ID then
   begin
     for x := Low(VipNames) to High(VipNames) do
     begin
       if VipNames[x] = VipList.VIP[i].Name then
       begin
         Self.Logout(True);
         exit;
       end
     end;
   end;
 end; 
end;

While not terminated do
begin
 UpdateWorld;
 ProcessEvents;
 Sleep(100);
end;