[lmikle]

Да какая идея-то нужна тебе?...
Поток:

Код:

type
  TMyThread = class)TThread)
  ...
  public
    l, h : Integer;  // Low and High indices in the Array
  end;

Главная программа:

Код:

const
  NumberOfThreads = 5;
...
for i := Low(A) To High(A) Do A[i] := ... // Fill the array

// create and run the threads

for i := 0 to NumberOfThreads-1 Do
begin
  t := TMyThread.Create(True);
  t.l := i * Length(A) / NumberOfThreads;
  t.h := (i+1) * Length(A) / NumberOfThreads - 1;
  t.resume;
end;

Но сделать так, как я сказал раньше - правильнее, гибче и эффективнее.