unit Unit1;
 
interface
 
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants,
  System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls;
 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
  TMinhaThread = class(TThread)
  private
 
  protected
    procedure Execute; override;
  public
    constructor Create();
  end;
 
var
  Form1: TForm1;
 
implementation
 
{$R *.dfm}
 
constructor TMinhaThread.Create();
begin
  inherited Create(True);
 
  { Chama o contrutor herdado. Ele irá temporariamente colocar o 
    thread em estado de espera para depois executá-lo. }
  FreeOnTerminate := True; // Libera da memoria o objeto após terminar.
 
  { Configura sua prioridade na lista de processos do Sistema operacional. }
  Priority := TpLower;
 
  Resume; // Inicia o Thread.
end;
 
procedure TMinhaThread.Execute;
begin
  inherited;
  // Aqui fica o corpo da Thread onde você vai rodar seus
  // scripts que devem ser executados em processo individual
 
  Form1.Label1.Caption := 'Teste';
end;
 
{ Colocando a Thread em execução }
procedure TForm1.Button1Click(Sender: TObject);
var
  vThread : TMinhaThread;
begin
  vThread := TMinhaThread.Create;
 
  vThread.Execute;
end;
 
end.