Add function fngtTOInfo in PD-Model
ChanceAllObject View in PD-model (TOInfo field added)
Modified Main.pas - color for Objects v remonte
Objects with Not Closed TO = v remonte and BrushColor=clOlive