unit Unit1;

interface

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


type TMinhaThread = class(TThread)
   private
   protected
      procedure Execute; override;
   public
      constructor Create();
end;


type
  TForm1 = class(TForm)
  private
    { Private declarations }
  public
    { Public declarations }
  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.
  Priority := TpLower; { Configura sua prioridade na lista de processos do Sistema operacional. }
  Resume; // Inicia o Thread.
end;

procedure TMinhaThread.Execute;
begin
 // Aqui fica o corpo da Thread onde você vai rodar seus scripts que devem ser executados em processo individual
end;


end.