[ZXCCXZ]

Здравствуйте, мне в программе необходимо запускать функцию несколько раз, каждый раз в новом потоке, потоки должны работать одновременно, потоков может быть очень много.

Делаю так:

Код:

procedure MyProcedure(a:integer);
begin
  Form1.Memo1.Lines.Add(TimeToStr(Now)+' New thread, a:'+IntToStr(a));
  sleep(1000*a);
  Form1.Memo1.Lines.Add(TimeToStr(Now)+'Thread with a:'+IntToStr(a)+' finished');
  ExitThread(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
 dw:Dword;
begin
  BeginThread(nil,0,@MyProcedure,Pointer(Random(5)),0,dw);
end;

initialization
randomize;

Всё работает, очень даже хорошо. Вопрос в следующем: как быть с функцией, которой нужно передать 2 или более параметров?
Например:
MyProcedure(a:integer; b:string; c:TDateTime);

Как через BeginThread передать функции 2 или более параметров?