var
  I: Integer;
  Total: Integer;
begin
  // counts the prime numbers below the given value
  Total := 0;
  for I := 1 to MaxValue do
  begin
    if (I * 10 mod MaxValue) = 0 then
      ListView1.Items.Add.Text := 'B: ' + I.ToString;
    if IsPrime (I) then
      Inc (Total);
  end;
  ListView1.Items.Add.Text := 'Blocking: ' + Total.ToString;
复制代码

procedure TForm5.Button3Click(Sender: TObject);
begin
  TThread.CreateAnonymousThread(procedure ()
  var
    I: Integer;
    Total: Integer;
  begin
    Total := 0;
    for I := 1 to MaxValue do
    begin
      if (I * 10 mod MaxValue) = 0 then
        TThread.Synchronize (TThread.CurrentThread,
          procedure ()
          begin
            ListView1.Items.Add.Text := 'Th: ' + I.ToString;
          end);

      if IsPrime (I) then
        Inc (Total);
    end;

    TThread.Synchronize (TThread.CurrentThread,
      procedure ()
      begin
        ListView1.Items.Add.Text := 'Thread: ' + Total.ToString;
        NotifyComplete;
      end);
  end).Start;
end;