1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:
60:
61:
62:

// deklaration von Threads
ThreadArray: array of TVersandThreads;
AnzahlThreads : integer;

// Versand-funktion
function TOutlookOutput.Versende: boolean;
var
  i:integer;
begin
  AnzahlThreads:= 3;
  Setlength(ThreadArray, AnzahlThreads);
  // in einer Schleife die Threads erzeugen
  for i := 0 to length(ThreadArray) - 1 do begin
    ThreadArray[i] := TVersandThreads.Create(true);
    ThreadArray[i].FMsgStore := FMsgStore;
    ThreadArray[i].FreeOnTerminate := True;
    ThreadArray[i].OnTerminate := ThreadDone;
    ThreadArray[i].Resume;
  end; 

  // Diese Funktion soll True zurückmelden wenn alle Threads Terminieren.
  // Das heisst, dass Versand beendet ist!
  ???
end;  

procedure TOutlookOutput.ThreadDone(Sender: TObject);
var i : integer;
begin
  Dec(AnzahlThreads);
  ???
End;

// jetzt Thread
type
  TVersandThreads = class(TThread)
  private
    procedure DoSomething;
   function SetMessageProps(Message: TRwMapiMessage): boolean;    
  protected
    procedure Execute; override;
  public
    FmsgStore : TrwMapiMsgStore;
end;

implementation

procedure TVersandThreads.Execute;
begin
    DoSomething();
end;

procedure TVersandThreads.DoSomething;
var
  NewMessage: TRwMapiMessage;
  Outbox : TRwMapiFolder;
Begin
   Outbox := FMsgStore.OpenFolder(ftOutbox, alReadWrite);
   NewMessage:= OutBox.CreateMessage;
   SetMessageProps(NewMessage);
   NewMessage.SubmitMessage(asMoveToSentItems, false);
   NewMessage.Free;  
end;                    

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

ThreadHandles : array of THANDLE; 

function TOutlookOutput.Execute: boolean;
   ...
    for i:= 0 to length(ThreadArray) - 1 do begin
      // Thread erstellen
      ...
      ThreadHandles[i] := ThreadArray[i].Handle;
      ...
      ThreadArray[i].Resume; 
    end;      

   WaitForMultipleObjects(AnzahlThreads, @ThreadHandles,   
                                     true, 1000);
end;                    

1:
2:

while WaitForMultipleObjects(<count>, <HandleArray>, True, 100) = WAIT_TIMEOUT do
  Application.ProcessMessages;