[sereja-korjik]

Форумчане, доброго времени суток. Помогите советом. Дан некий код (цикл) в котором и происходит сравнение двух цветов. Один берется из массива, а другой берется просто из компонента.

Код:

for J := 0 to 541 do
if Theme.Color[J].Color = frmclient.ctbcolors.Categories.Items[frmclient.ctbcolors.Categories.Count - 1].Color then
frmclient.ctbcolors.Categories.Items[frmclient.ctbcolors.Categories.Count - 1].Caption := 'ok'.

Проблема в том, что условие не проходит, хотя должно. Заранее известно, что два значения там встречаются одинаковые.
Например, if ColorToHex(Theme.Color[J].Color) = $FFFFFF - работает. Может я не так сравниваю?

Заранее спасибо за идеи.