RGB to indexed color palette, перевод из RGB в палитру 256 цветов Опции

[Билли Боб]

Как подогнать три цвета в один из 256-цветной палитры?

[TarasBer]

Нет, тип переменных менять не надо.
Надо только в выражении
Sqr(r - Palette256[i,0]) + Sqr(g - Palette256[i,1]) + Sqr(b - Palette256[i,2]);
написать
Sqr(r - longint(Palette256[i,0])) + Sqr(g - longint(Palette256[i,1])) + Sqr(b - longint(Palette256[i,2]));