[ZXCCXZ]

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

Делаю так:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

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 или более параметров?