проблема с прорисовкой изображения из TImageList

[Виктор Горбань]

Надеюсь, я правильно выбрал раздел.
Почти сделал крестики-нолики.
Не могу прорисовать "картинку победы": в блок, где выполняется все это, программа входит, но картинка не прорисовывается.
Что я делаю не так?
//сюда доходит. игра останавливается, но картинка не рисуется.
if result>1 then //1-пока ничья, 2-победа красных, 3-победа синих
begin
правила.text:='result='+IntToStr(re sult);
game:=false;
WinList.draw(WinImage.Canvas,0,0,re sult,true); //эта строка не работает
end
else
WinList.draw(WinImage.Canvas,0,0,4, true); //вместо проверки ничьей

[Виктор Горбань]

и тут есть выделение кода паскаль или делфи?

[Виктор Горбань]

//сюда доходит. игра останавливается, но картинка не рисуется.
if result>1 then //1-пока ничья, 2-победа красных, 3-победа синих
 begin
  правила.text:='result='+IntToStr(re sult);
  game:=false;
  WinList.draw(WinImage.Canvas,0,0,re sult,true); //эта строка не работает
 end
else
WinList.draw(WinImage.Canvas,0,0,4, true); //вместо проверки ничьей

[evg_m]

WinList.draw(WinImage.Canvas,0,0,re sult,true); //эта строка не работает

А предыдущие в ЭТОМ блоке работают?!

 begin
  правила.text:='result='+IntToStr(re sult);
  game:=false;
...

если ТОЖЕ нет, то смотрим (и рассказываем) что такое result ...

[Виктор Горбань]

да, все работает. кроме строки с прорисовкой.

[Виктор Горбань]

result-это переменная, которая служит для определения победителя. Но это, скорее всего, лишняя информация, т.к. работает все, кроме строки с winimage.
проверка на result работает, game присваивается false, строку про правила я сделал именно для проверки входа в этот блок.
Winimage:TImageList

[min@y™]

если хошь, давай проект, посмотрю.

[Виктор Горбань]

сейчас загружу. Работаю в RAD Studio XE8, если это кому-то нужно.

[Виктор Горбань]

ну вот непрерывный архив с проектом.

[min@y™]

нахрена ты его на части-то раздолбал?
И чо такой архив-то здоровый? там видеоролик, штоли внутри?