Потоки (Delphi)

[VadEr]

Здравствуйте господа программисты!
С потоками раньше никогда не работал, поэтому имею слабое представление о путях их реализации. Надеюсь вы мне поможете разобраться в вопросах: Так ли это делается? Нет ли ничего лишнего? Или лучше как-то по другому делать? Есть ли от этого толк (т.к. улучшений в быстродействии вроде бы не заметил)?

В главной программе идет цикл добавления и редактирования записей в БД + в каждом созданном потоке идет добавление и редактирование записей в той же самой БД (это TClienDataSet):

Это основная форма:

TStructThread = record
    nd: Variant;
    iz: Variant;
    sn: Variant;
    Thread: TMyThread; // это поток 
  end;
TForm1 = class(TForm)
...
  public
    { Public declarations }
    MasThreads: array of TStructThread; // массив моих потоков
end;

Каждый раз когда идет добавление новой записи в главной форме

DM.Data.AppendRecord(...);

сразу следующим оператором я создаю новый поток:

SetLength(MasThreads, Length(MasThreads) + 1);
//передаю данные по котрым поток будет искать данные из других таблиц
MasThreads[High(MasThreads)].nd := данные1;
MasThreads[High(MasThreads)].iz := данные2;
MasThreads[High(MasThreads)].sn := данные3;
MasThreads[High(MasThreads)].Thread := TMyThread.Create(False);
MasThreads[High(MasThreads)].Thread.Resume;
MasThreads[High(MasThreads)].Thread.Priority := tpNormal;

внутри каждого потока получаю данные из структуры (данные1, данные2...)
и запускаю "AddNew" - процедура включающая сложный цикл добавлений и редактирований записей в том же клиенте, куда пишет основная программа

procedure TMyThread.Execute;
begin
  FreeOnTerminate := True;
  nd := Form1.MasThreads[High(Form1.MasThreads)].nd; //данные1
  iz := Form1.MasThreads[High(Form1.MasThreads)].iz;   //данные2
  sn := Form1.MasThreads[High(Form1.MasThreads)].sn;  //данные3
  Synchronize(AddNew);
end;

Теперь собственно вопросы:
- Основная процедура, которая создает массив потоков, она продолжает свои итерации или ждет пока поток завершит работу (т.е. процедура будет ждать пока созданнй поток уничтожится или продолжит генерацию новых потоков)?
- если основная процедура всетаки продолжает работу, при условии, что созданны потоки, которые еще не завершили работу (их может быть несколько), возможна ли такая ситуация, что создался поток -> этот новый поток в своей процедуре Execute берет данные с последнего элемента массива

 nd := Form1.MasThreads[High(Form1.MasThreads)].nd;

(т.к. предпологается, что последний элемент массива соответствует последнему созданному потоку) -> а тут вдруг главная процедура создает новый поток, увеличивая размер массива и этот поток (который уже не последний, а предпоследний) в результате возьмет данные из последней ячеки массива, предназначенного для последнего созданного.

Если дело обстоит так, то как тогда передавать данные потоку без путанницы?