[NumLock]

1.

Код:

  with TImage(FindComponent('Image'+IntToStr(i))).Canvas do
  begin
    // draw
  end;

2.
отрисовку делать в отдельной процедуре, которой параметром передавать TImage из цикла