Utilize TTaks de processamento em paralelo.
procedure executarrotina;
begin
vg_Tarefas.Add(TTask.Create(procedure ()
var vEmail : TEmail;
begin
vEmail := TEmail.Create;
try
vEmail.Assunto := pAssunto;
vEmail.Destinatarios := pDest;
vEmail.Mensagem := pMens;
vEmail.Enviar;
finally
FreeAndNil(pMens);
FreeAndNil(vEmail);
end;
end));
vg_Tarefas[vg_Tarefas.Count - 1].Start;
end;
declare a variável
var vg_Tarefas : TList<ITask>;
uses System.Generics.Collections;
Muito importante: Nunca utilize comandos que mostre avisos, atualize edit, nesta rotina. Se quer performance, não atualize tela. Se precisa atualizar tela, atualize algo numa tabela e dispare evento no banco, que será mais eficiente.
Neste exemplo, estou enviando email em background (paralelo).