Как правильно подключить и синхронизировать поток в delphi?

1
2
3
4
5

type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

1
2
3
4

procedure TMyThread.Execute;
begin
  // код потока
end;

1
2
3
4
5
6

var
  MyThread: TMyThread;
begin
  MyThread := TMyThread.Create(True);
  MyThread.Start;
end;

1
2
3
4
5

procedure TMyThread.Execute;
begin
  // выполнение кода потока
  MyEvent.SetEvent;
end;

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

var
  MyEvent: TEvent;
begin
  MyEvent := TEvent.Create(nil, False, False, '');
  try
    // запуск потока
    MyThread := TMyThread.Create(True);
    MyThread.Start;

    // ожидание события
    MyEvent.WaitFor(INFINITE);
  finally
    MyEvent.Free;
  end;
end;

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30

var
  MyVariable: Integer;
begin
  // создание монитора
  MyMonitor := TObject.Create;

  // поток 1
  TThread.CreateAnonymousThread(
    procedure
    begin
      TMonitor.Enter(MyMonitor);
      try
        MyVariable := MyVariable + 1;
      finally
        TMonitor.Exit(MyMonitor);
      end;
    end).Start;

  // поток 2
  TThread.CreateAnonymousThread(
    procedure
    begin
      TMonitor.Enter(MyMonitor);
      try
        MyVariable := MyVariable + 2;
      finally
        TMonitor.Exit(MyMonitor);
      end;
    end).Start;
end;