Pasted

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.