[stanilar]

Код:

TMyTask = class(TObject)
  public
    FTask : array[1..10] of string;
    FTimer : TTimer;
    procedure OnTimer(Sender : TObject);
    constructor Create(AInterval : integer);
    destructor Destroy;
  end;

  procedure TMyTask.OnTimer(Sender : TObject);
  begin
    ...
    FTask
    ...
  end;

  constructor TMyTask.Create(AInterval : integer);
  begin
    inherited Create;
    FTimer := TTimer.Create;
    FTimer.Interval := AInterval;
    FTimer.OnTimer := OnTimer;
    //  FTimer.Enable := True;
  end;

  destructor Destroy;
  begin
    FTimer.OnTimer := nil;
    FTimer.Free;
    inherited Destroy;
  end;




  ...
  var List : TObjectList;
  ...
  procedure ...
  var Tmp : TMyTask;
  begin
    Tmp := TMyTask.Create(interval);
    Tmp.FTask := ...
    Tmp.FTimer.Enabled := True;
    ...
    List.Add(Tmp)
    ...
  end;
  ...