anchor.diff:    // Show a error message
     procedure tiAppError(const AMessage: string; ATitle: string = '');
   
  +  // A type of notification window that will disappear by it self
  +  procedure tiProcessing(const AMessage: TfpgString);
  +  procedure tiEndProcessing;
   
   implementation
   
  
positive.code:   fpg_main,
    fpg_form,
    fpg_memo,
    fpg_dialogs,
    tiGUIINI,
    tiUtils;
  
  
  procedure tiShowMessage(const AArray: array of const);
  
negative.code:   TfpgMessageDialog.Critical(ATitle, AMessage);
  end;
  
  procedure tiProcessing(const AMessage: TfpgString);
  begin
    if not Assigned(pWorkingForm) then
    begin
      pWorkingForm := TProcessingForm.Create(nil);
      TProcessingForm(pWorkingForm).lblMessage.Text := AMessage;
      pWorkingForm.Show;
    end
    else
      TProcessingForm(pWorkingForm).lblMessage.Text := AMessage;
    fpgApplication.ProcessMessages;
  end;
  
  procedure tiEndProcessing;
  begin
    if Assigned(pWorkingForm) then
      pWorkingForm.Close;
    FreeAndNil(pWorkingForm);
  end;
  
  end.
  
  