[SpectraL]

Главный модуль:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls, Unit2;

type
TForm1 = class(TForm)
RichEdit1: TRichEdit;
Label1: TLabel;
Button1: TButton;
procedure Button1Click(Sender: TObject);
end;

var
Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
MyThread.Suspended := False;
end;

end.

Модуль с индивидуальным потоком (Thread Object):

unit Unit2;

interface

uses
Classes, SysUtils;

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

var
MyThread: TMyThread;
i: integer;

implementation

uses Unit1;

procedure UpLab;
begin
Form1.Label1.Caption := IntToStr(i);
end;

procedure TMyThread.Execute;
begin
repeat
i := 0;
while True do
begin
i := i + 1;
Synchronize(UpLab);
if i > 10000 then Break;
end;
Suspended := True;
until False; //terminated;
end;

initialization
MyThread := TMyThread.Create(True);
//MyThread.FreeOnTerminate := True; // ПЕРВЫЙ ВАРИАНТ

//finalization
// MyThread.Free; // ВТОРОЙ ВАРИАНТ

end.

1. Почему, при использовании ВТОРОГО ВАРИАНТА, приложение, после закрытия главного окна, не завершается (продолжает находится в списке выполняемых процессов диспетчера задач) (в Delphi, в данном случае, при повторной компиляции приложения, выводится ошибка со следующим сообщением: [DCC Fatal Error] F2039 Could not create output file '.\Debug\Win32\Program.exe')?
2. При использовании ПЕРВОГО ВАРИАНТА, приложение, после закрытия главного окна, завершается нормально. Всё ли нормально в исходном коде, в данном случае, или может быть лучше вызвать MyThread.Terminate в главном модуле в разделе finalization?