Deslogar se PK entrar na Tela

var
x:integer;
RedSkull: boolean
WhiteSkull: boolean

begin
while not terminated do
begin
UpdateWorld;
if Creatures.count>1 then
for x := 0 to Creatures.Count - 1 do
begin
UpdateWorld;
if (Creatures.Creature[x].RedSkull=true)
or (Creatures.Creature[x].WhiteSkull=true)
then Self.Logout(True); //Change to False if you dont want force logout
end;
sleep(1000);
end;
end;