Дескрипторы потоков - Для каждого элемента списка необходимо создать поток, выполняющий требуемые функции

[kdv0403]

Добрый день,
помогите разобраться с проблемкой:
имеется список, хранящийся в ListView. Для каждого элемента списка необходимо создать поток, выполняющий требуемые функции. Должна быть возможность прервать выполнение потока.
Проблема в том, что для этого необходимо хранить дескрипторы потоков привязанными к элементам списка. Для этого решил использовать указатель Data типа Pointer компонента ListItem (ListView.ListItem.Data). Код следующий:

type
  TfmMain = class(TForm)
    ... 
    lvServers: TListView;
    ... 
  end;
procedure TfmMain.buStartClick(Sender: TObject);
var
  P: ^TExecuterThread;
begin
  new(P);
...
  P^ := TExecuterThread.Create(false, lvServers.Selected);
  lvServers.Selected.Data := P;
...
end;
...
procedure TfmMain.buStopClick(Sender: TObject);
var
  i: integer;
  P: ^TExecuterThread;
begin
  with lvServers.Items do
    for i := 0 to Count do
      if (Item[i].Selected) and isAlreadyStarted(Item[i]) then
      begin
        try
          P := Item[i].Data;
          P^.Terminate;
          dispose(P);
        except
        end;
      end;
end;

Здесь TExecuterThread - потомок класса TThread.
Во время выполнения программы при прерывании потока (P^.Terminate) появляется ошибка типа "Access violation ...", но поток все же прерывается. Ошибка эта выскакивает и не в среде Делфи (при запуске экзешника), то есть блок try...except здесь не помогает.
Это последний элемент функциональности, но застрял на нем.
Подскажите, пожалуйста, как избавиться от ошибки.
Заранее благодарю

[pu4koff]

вместо dispose(P); попробуй P^.Free;

[Rouse_]

Выстави у потока FreeOnTerminate := True и достаточно будет ему сказать только P^.Terminate; Все остальное он сделает сам