Моя долбанная лень.

Из-за нее всегда приходится все переделывать гораздо дольше.

Сделал в Делфи две функции.

Одна для трех значений. Вторая для четырех, по сути включает первую.

Написал так что вторая использует значение возвращаемое первой.

И БЛЯДЬ 2 ЧАСА НЕ МОГ ПОНЯТЬ ПОЧЕМУ У МЕНЯ ВСЕ ГЛЮЧИТ И ВЫВОДИТ ДАННЫЕ ДВА РАЗА.

Просто он смотрел на эту функцию долбанную и путался.

Теперь вот сижу и думаю какой я дурак и как все было просто написать сразу отдельно.