Распараллеливание потока

[eXa]

Драсти!
Есть цикл, каторый построчно перебирает значения из текстового файла, требуется распараллелить этот цикл на заданное количество потоков, для ускарения процесса. Сколько про потки мне не объясняли и сколько я про них нечитал, всё равно не пойму как это сделать, приветствуется пример! Если ковот не затруднит выложите исходничик, в катором можно задавать кол-во потоков...

var
count, i, a: integer;
text: string;
 begin
  Count:= Ls.Count
  for i:= 0 to Count do
  begin
   text:= Ls.Strings[i];
   a:=  StrToInt(text) + 1;
  end;

[Квэнди]

http://forum.vingrad.ru/topic-60076.html#entry480357

[Virtson]

http://www.interface.ru/home.asp?artId=6105

[eXa]

Огромное спасибо!