2 Instanzen eine Klasse gleichzeitig berechnen

[bernhard_LA]

mein Code geht wie folgt ,
warum gehen die beiden Parallel.Join( ) Aufrufe nicht ?
Der Code a.berechne, b.berechne wird nicht ausgeführt.

Delphi-Quellcode:

uses  .... , OtlParallel, ......   ;


Type TMyClass= Class
          ....
          procedure Berechne();
          .....
     end; 


var  a, b  : TMyClass;


     a := TMyClass.Create ;
     b := TMyClass.Create ;



     //   diese code  funktioniert 
     a.Berechne();
     b.Berechne(); 


     //geht nicht, compile  = OK
       Parallel.Join(
         procedure begin
         a.Berechne();
         end,
         procedure begin  
         b.Berechne();
         end );

    //geht nicht, compile = OK; 
       Parallel.Join(
         a.Berechne(); b.Berechne() );