anchor.diff:      begin
         if Assigned(cmdmsg.TMLCore.OnProgress) then
         begin
  -        try
  -          cmdmsg.TMLCore.OnProgress(cmdmsg.TMLCore, cmdmsg, progress);
  -        finally
  -          cmdmsg.ReleaseData;
  +        if cmdmsg.TMLCore.SyncReply and cmdmsg.IsAsync then
  +        begin
  +          if not Assigned(tmlSyncCallCritSect) then
  +          begin
  +            tmlSyncCallCritSect := TSyncExecuteCritSec.Create;
  +          end;
  +          if Assigned(tmlSyncCallCritSect) then
  +          begin
  +            tmlSyncCallCritSect.Enter;
  +            try
  +              tmlSyncCallCritSect.Clear;
  +              tmlSyncCallCritSect.CmdMsg             := cmdmsg;
  +              tmlSyncCallCritSect.i1                 := progress;
  +              tmlSyncCallCritSect.CmdProgressMethod  := cmdmsg.TMLCore.OnProgress;
  +              tmlSyncCallCritSect.Core               := cmdmsg.TMLCore;
  +
  +              {$if  defined(FPC)}
  +                TThread.Synchronize(nil, @tmlSyncCallCritSect.SyncExecute);
  +              {$else}
  +                TThread.Synchronize(nil, tmlSyncCallCritSect.SyncExecute);
  +              {$ifend}
  +            finally
  +              tmlSyncCallCritSect.Leave;
  +            end;
  +          end;
  +        end
  +        else
  +        begin
  +          try
  +            cmdmsg.TMLCore.OnProgress(cmdmsg.TMLCore, cmdmsg, progress);
  +          finally
  +            cmdmsg.ReleaseData;
  +          end;
           end;
         end;
       end;
  
positive.code:   property TMLCore  : TTMLCore     read GetCore    write SetCore;
    property Profile  : string       read GetProfile write SetProfile;
    property Commands : TTMLCommands read GetCommands;
  
    // events
    property OnGetProfileName        : TTMLOnGetProfileName    read FOnGetProfileName
  
negative.code:     tmlDesignInfos[FDesignIndex].LogLevel        := TML_LOG_OFF;
    end;
  
    FOnProgress          := nil;
    FOnCommandReady      := nil;
    FOnStatusReply       := nil;
    FSyncReply           := false;
  
    SetLength(FProfiles, 0);
  
  