Async await

gistfile1.txt

AsyncMethod;
begin
  TTask.Run(
    procedure
    begin
      // Código assíncrono aqui
      Sleep(5000); // Exemplo de operação assíncrona simulada

      // Atualizar a interface do usuário, se necessário
      TThread.Queue(nil,
        procedure
        begin
          // Código para atualizar a interface do usuário aqui
          Memo1.Lines.Add('Operação assíncrona concluída.');
        end
      );
    end
  );