if Player = Player1 then -- Maximum if Loose > 0 and Win = 0 and Undecided = 0 then Edge.Weight := '-'; elsif Win > 0 then Edge.Weight := '+'; elsif Undecided > 0 and Win = 0 then Edge.Weight := '='; end if; elsif Player = Player2 then -- Minimum if Loose > 0 then Edge.Weight := '-'; elsif Win > 0 and Loose = 0 and Undecided = 0 then Edge.Weight := '+'; elsif Undecided > 0 and Loose = 0 then Edge.Weight := '='; end if; end if;