Управление потоком. Как правильно обозначить строки Мемо?

[Зод]

Есть пару потоков в программе. Работают нормально. Но в каждом потоке используется строчка из Мемо1. Как так в теле потока обозначить x что бы каждый поток работал с отдельной строчкой и они не повторялись.
В каждом потоке у меня стоит еще и цикл что осложняет программу.
К примеру:
В Мемо1 50 строчек.
Цикл

For i:=0 to 49 do
Begin
a:=Memo1.Lines[i];
...

+ 2 потока.
Получается что потоки берут одни и те же строчки.
Еслискажем номер потока y и писать:
a:=Memo1.Lines[i+y];
получается что поток каждый берет +1 или +2 к строке.
В результате потоки все равно встречаются. Первый перебирает от 1-10 подряд, в это время второй берет от 2-10 [2,4,6,8,10]
Надеюсь кто-нибудь поймет что я хотел спросить)
___________________________________ ________________
P.S.
Как можно переделать эту строчку под потоки:

  Form1.Memo1.Lines.LoadFromStream(HTTP.Document);
s:=Form1.Memo1.Text;

[Человек_Борща]

Используйте критические секции.
TCriticalSection из SyncObjs.pas

[Зод]

..........................

[3D Hunter]

ТС, понаписали много, а ничерта непонятно, типа, додумай сам. У вас проблема с присвоением "своих" строк каждому потоку, чтобы в сумме число этих строк по всем потокам совпадало с числом строк в мемо1? Так что ли?