RGB --> 256, переход между палитрами Опции

[compiler]

Добрый день!
Собственно нужна функция на ФП которая получая RGB-параметры возвращала бы номер этого(или максимально близкого к этому цвету) в стандартной палитре. [ RGBToP(const r, g, b:word):word; ]
Желательно БЕЗ использования асм.
Поиск особых результатов не дал(кроме не к чему не ведущей темы 2003-года)

заранее благодарен

[compiler]

Что-то я не совсем понял...

Итак разбиваем всю палитру RGB на 256 цветов(ибо больше нам все равно не понадобится) //каким образом мы будем отсеивать цвета?
Затем сравниваем все цвета RGB с неким цветом //каким образом будет происходить сравнение(тоесть где взять функцию Distance)?

Вобще, как я понял, приведенная программа совершает обратные действия
Но если бы действитель была бы функция Distance, то задача бы сильно бы упростилась бы...