كيف استخدم الThread

[cargem]

لاول مرة ارى شي مثل هذا
(begin

end)

PHP كود :

try
    Thread( procedure var i, c: Integer;
    begin
      // sleep(2000);
      // SetEvent(done);
      c := Counter; // copy Counter;
      for i := 1 to 30 do PrintCounter(Format('[%d] : %d * %d = %d;',
      [c, i, c, i * c]));
       end);
    // WaitForSingleObject(done, INFINITE);
  finally
    // CloseHandle(done);
  end;