Simple realization parallel tasks for Delphi 7
TTask.Run(@CalcProc,data).
ContinueWith(@CalcProc,data,[coOnlyOnSuccess]).
ContinueWith(@CalcContProc,data,[coOnlyOnSuccess]).
ContinueWith(@CalcContProc,data,[coOnlyOnSuccess]).
ContinueWith(@PrintResult,data,[coOnlyOnSuccess,coOnMainThread]);