unit Main;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;

type
  TTimedThread = class(TThread)
  public
    StopThread: THandle;

    constructor Create(CreateSuspended: Boolean); overload;
    destructor Destroy; override;
    procedure Execute; override;
  end;

  TMainForm = class(TForm)
    Start: TButton;
    Stop: TButton;
    procedure StartClick(Sender: TObject);
    procedure StopClick(Sender: TObject);
  private
    { Private declarations }
  public
    FThread: TTimedThread;
  end;


var
  MainForm: TMainForm;

implementation

{$R *.dfm}

{ TTimedThread }

constructor TTimedThread.Create(CreateSuspended: Boolean);
begin
  inherited;

  // Создаем событие завершения потока
  StopThread:=CreateEvent(nil, false, false, nil);
end;

procedure TTimedThread.Execute;
begin
  // Вечный цикл с задержкой в 1 сек, но с мгновенным выходом
  while WaitForSingleObject(StopThread, 1000) = WAIT_TIMEOUT do begin
    // Тут типа делаем работу в потоке
    Synchronize(procedure begin
      MainForm.Caption:=GetTickCount.ToString;
    end);
  end;
end;

destructor TTimedThread.Destroy;
begin
  // Удаляем событие
  CloseHandle(StopThread);

  inherited;
end;

procedure TMainForm.StartClick(Sender: TObject);
begin
  // Создаем и стартуем поток.
  FThread:=TTimedThread.Create(False);
  MainForm.Caption:='Start';
end;


procedure TMainForm.StopClick(Sender: TObject);
begin
  // Вызыввем событие выхода из потока
  SetEvent(FThread.StopThread);
  // дожидаемся завершения потока
  FThread.WaitFor;
  // убиваем поток
  FThread.Free;

  // конец.
  MainForm.Caption:='Stop';
end;

end.