program proba01;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,
  Thread1Unit in 'Thread1Unit.pas';

var
  Thread1: TThread1;
  Thread2: TThread1;
begin
  try
    Randomize;

    WriteLn('==========================');

    Thread1 := TThread1.Create(True);
    Thread1.FreeOnTerminate := False;
    Thread2 := TThread1.Create(True);
    Thread2.FreeOnTerminate := False;

    Thread1.Start;
    Thread2.Start;

    Thread1.WaitFor;
    Thread2.WaitFor;

    Thread1.Free;
    Thread2.Free;

    WriteLn('==========================');

  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
  ReadLn;
end.

unit Thread1Unit;

interface

uses
  Winapi.Windows,
  System.SysUtils, System.Classes;

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

implementation

threadvar
  ThreadStr: String;
  ThreadIdx: Integer;

procedure Proc1(Self: Pointer);
var
  _Add: Boolean;
  _S: String;
begin
  _Add := False;
  if ThreadStr = '' then
  begin
    _Add := True;
    ThreadStr := 'id: ' + UIntToStr(GetCurrentThreadId);
  end;
  if _Add then _S := ThreadStr + ' +++' else _S := ThreadStr;
  UniqueString(_S);
  Inc(ThreadIdx);
  _S := FormatDateTime('mm:ss.zzz'#9, Now) + 'Self: ' + IntToHex(UIntPtr(Self), 8) + #9 + _S + ' - ' + IntToStr(ThreadIdx);
  WriteLn(_S);
end;

procedure TThread1.Execute;
var
  I: Integer;
begin
  ThreadStr := '';
  ThreadIdx := 0;

  Proc1(Self);
  Sleep(3000);

  for I := 1 to 5 do
  begin
    Proc1(Self);
    Sleep(Random(500));
  end;

  ThreadStr := '';
end;

end.