[T-dayne]

Всем привет) Такая проблема возникла.
Есть программа, в ней используются потоки. Причем количество потоков задается числом в edit. Далее, в МЕМО вводятся фамилии, по одной на каждую строчку. И мне нужно в несколько потоков провести одинаковые действия со списком. Естественно встала проблема синхронизации(или как бы это назвать) . Т.е. нужно чтобы одновременно в каждом потоке был обработан свой элемент(не повторяясь).
Код прилагаю.(В этом коде все потоки идентичны и выполняют одинаковую работу несколько раз )

класс потока:

Код:

TMyTr = class(TgsvThread)
    http:TidHttp;
  protected
    procedure Execute; override;
  end;

Создаем и запускаем их:

Код:

procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
  for i:=1 to spinedit1.Value do
  begin
    thr[i]:=TMyTr.Create;
    thr[i].Pause(1);
    thr[i].Resume;
  end;

Сам поток выглядит так:

Код:

procedure TMyTr.Execute;
var
//переменные
begin
  //обрабатываем элементы мемо
end;

Чую, как то можно сделать, но до меня не допрет никак
прошу здесь помощи)

ЗЫ мб делить список на куски и раздавать каждому потоку свой кусок? незнаю как реализовать... или может есть способ легче?