procedure TForm1.tmr1Timer(Sender: TObject);
  const
    n:integer=0;

begin
ImageList1.Draw(Image1.Canvas, 10,10,n);

n:=n+1;//n это номер картинки

end;

type TForm1=class(TForm)
img1,img2,img3:TImage; //Описание компонентов в классе формы
<...>
var img:array [1..3] of TImage; //Где-то задан массив указателей на эти компоненты
<...>
//Где-то копируем ссылки на экземпляры класса TImage в наш массив
img[1]:=img1;
img[2]:=img2;
img[3]:=img3;
<...>
//А тут используем их в цикле:
for i:=1 to 3 do img[i].canvas.clear;
<...>

unit mainunit;

interface

uses
   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
   Dialogs, StdCtrls;

type
   TForm1 = class(TForm)
     Label1: TLabel;
     Label2: TLabel;
     Button1: TButton;
     procedure FormCreate(Sender: TObject);
     procedure FormClose(Sender: TObject; var Action: TCloseAction);
     procedure Button1Click(Sender: TObject);
   end;

   //Описываем собственный класс на основе базового
   TMyThread=class(TThread)
     //num юзаем для того, чтобы экземпляр класса
     //мог определить, кто он есть в этом мире...
     num:byte; //короче, типа идентификатора
   protected
     //Перезаписываем виртуальный абстрактный метод Execute
     procedure Execute; override;
   public
     //Создаём собственный конструктор
     constructor Create(nm:byte);
   end;

var
   Form1: TForm1;
   th1,th2:TMyThread; //Это наши экземплярчики

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
   //Создаём два процесса, первый и второй
   th1:=TMyThread.Create(1);
   th2:=TMyThread.Create(2);
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   //Завершаем поток и удаляем экземпляры
   th1.Terminate;
   th2.Terminate;
end;

//Конструктор класса
constructor TMyThread.Create;
begin
   num:=nm; //Сохраняем тип
   //Следующая переменная, заданная в true,
   //удаляет экземпляр сразу после остановки
   FreeOnTerminate:=true;
   //Вызываем TThread.Create с параметром
   //CreateSuspended=true, т.е. поток изначально остановлен;
   //если false - поток запускается сразу после создания
   inherited Create(true);
end;

procedure TMyThread.Execute;
begin
   //Бесконечный цикл
   repeat
     //Выбираем действие по типу
     case num of
     1: form1.Label1.Caption:=inttostr(strtoint(form1.Label1.Caption)+1);
     2: form1.Label2.Caption:=inttostr(strtoint(form1.Label2.Caption)+1);
     end;
     //Делаем паузу
     sleep(500);
   until false;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   //Переключаем состояние потоков: вкл/выкл
   if th1.Suspended then
   begin
     th1.Resume;
     th2.Resume;
   end else
   begin
     th1.Suspend; //Suspend - приостановка, но не завершение
     th2.Suspend;
   end;
end;

end.