anchor.diff:    end;
   end;
   
  -procedure tiShowString(const AStr: string; const pHeading: string);
  +procedure tiShowString(const AStr: TfpgString; const AHeading: TfpgString);
   var
     lSL: TStringList;
   begin
     lSL := TStringList.Create;
     try
       lSL.Text := AStr;
  -    tiShowStringList(lSL, pHeading);
  +    tiShowStringList(lSL, AHeading);
     finally
       lSL.Free;
     end;
   end;
   
  -procedure tiShowVariant(AValue: Variant; pHeading: string);
  +procedure tiShowVariant(AValue: Variant; AHeading: TfpgString);
   var
     ls: string;
   begin
     ls := tiVariantArrayToString(AValue);
  -  tiShowString(ls, pHeading);
  -end;
  -
  -procedure tiShowStream(const AValue: TStream; const pHeading: string);
  +  tiShowString(ls, AHeading);
  +end;
  +
  +procedure tiShowStream(const AValue: TStream; const AHeading: TfpgString);
   var
     lStringStream: TStringStream;
   begin
  
positive.code: 
    
    // Show the contents of a TStringList - for debugging
    procedure tiShowStringList(const pStringList: TStringList; const pHeading: string = 'Show string list');
    // Show the contents of a TStrings - for debugging
    procedure tiShowStrings(const AStrings: TStrings; const pHeading: string = 'Show strings');
    // Show a long string - for debugging
    procedure tiShowString(const AStr: string; const pHeading: string = 'Show string');
    // Show a variant array of variants - for debugging
    procedure tiShowVariant(AValue: Variant; pHeading: string = 'Show variant');
    // Show the contents of a stream
    procedure tiShowStream(const AValue: TStream; const pHeading: string = 'Show stream');
    // Show a <Yes>, <No> dialog box, and return true if <Yes> was selected
    function tiAppConfirmation(const AMessage: string; ATitle: string = ''): boolean; overload;
    function tiAppConfirmation(const AMessage: string; const AValues: array of const): boolean; overload;
    // Show a message
    procedure tiAppMessage(const AMessage: string; ATitle: string = '');
    // Show a warning
    procedure tiAppWarning(const AMessage: string; ATitle: string = '');
    // 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);
  
negative.code:   ShowMessage(VarToStr(AValue));
  end;
  
  procedure tiShowStringList(const AStringList: TStringList; const AHeading: TfpgString);
  begin
    tiShowStrings(AStringList, AHeading);
  end;
  
  procedure tiShowStrings(const AStrings: TStrings; const AHeading: TfpgString);
  var
    lForm: TfpgForm;
    lMemo: TfpgMemo;
  