unit Unit1;

{$mode objfpc}{$H+}

interface

uses
  Classes, Forms;

type

  { TSomething }

  TSomething = class(TThread)
  public
    procedure Execute; override;
  end;

  { TForm1 }

  TForm1 = class(TForm)
  private
    FSomething: TSomething;
  public
    constructor Create(TheOwner: TComponent); override;
    destructor Destroy; override;
  end;

var
  Form1: TForm1;

implementation

{$R *.lfm}

{ TForm1 }

constructor TForm1.Create(TheOwner: TComponent);
begin
  inherited Create(TheOwner);
  FSomething := TSomething.Create(True);
end;

destructor TForm1.Destroy;
begin
  FSomething.Free;
  inherited Destroy;
end;

{ TSomething }

procedure TSomething.Execute;
begin
end;

end.