Fórum Dúvida usando TThread #484513

type
    Processo = class(TThread)
  private
    { Private declarations }
  protected
    procedure Execute; override;
    procedure TEnviarEmail;
end;

procedure TfrmPrincipal.BitBtn1Click(Sender: TObject);
 var
  ExecutarProcesso :Processo;
begin
   ExecutarProcesso := Processo.Create(False);
   ExecutarProcesso.FreeOnTerminate := true;
end;

procedure Processo.Execute;
begin
  TEnviarEmail;
end;


procedure Processo.TEnviarEmail;
begin
 //ex parte do código:
         //indica quem está enviando a mensagem
         frmPrincipal.IdMessage1.Subject        := '(TThread)- Email automático . ' +  ' em ' + FormatDateTime('dd/mm/yyyy hh:mm', Now);
         frmPrincipal.IdMessage1.Sender.Name    := 'mmmmm';
         frmPrincipal.IdMessage1.Sender.Address := 'xxxxxx@xxxxxx.com.br';
         frmPrincipal.IdMessage1.From.Name      := 'xxxxxx';
end;