anchor.diff:    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.
   
  
positive.code:   fpg_main,
    fpg_form,
    fpg_memo,
    fpg_dialogs,
    tiGUIINI,
    tiUtils;
  
  
  procedure tiShowMessage(const AArray: array of const);
  
negative.code:   // 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
  
  