TThread в Дельфи

[ImmortalAlexSan]

Как в Дельфи можно работать с массивом потоков, чтобы каждый имел свой метод? К примеру, нужно создать 9 потоков, по нажатию на кнопку один закрывается, включается 3 других.
Вот мой код, но он имхо какой-то не очень (мягко сказано):

type
  MyClassThread=class(TThread)
  private
  progress:integer;
  protected
  procedure execute; override;
  procedure OnWork;
  end;

rocedure MyClassThread.execute;
begin
 While not terminated do
  begin
    inc(Progress);
    Synchronize(OnWork);
    sleep(30);
    If progress=Form1.Progressbar1.Max then progress:=0;
  end;
end;

procedure MyClassThread.OnWork;
begin
Form1.Progressbar1.Position:=progress;
end;

И вот таких вот типов я описал 9 штук и на каждый по методу execute и процедуре OnWork ...Бред по-моему...

[Пепел Феникса]

можно сделать переменную типа процедура, тогда лишь каждому экземпляру нужно назначить обработчик

[ImmortalAlexSan]

а вы можете привести пример?