anchor.diff:      begin
         memEditor.Lines.LoadFromFile(dlg.FileName);
         FFileName := dlg.FileName;
  +      UpdateStatus(FFileName);
       end;
     finally
       dlg.Free;
  
positive.code:       s := StringReplace(s, 'file://', '', []);
      memEditor.LoadFromFile(s);
      FFilename := s;
      lblStatusText.Text := FFilename;
    end;
  end;
  
  
negative.code:     procedure miPasteClicked(Sender: TObject);
      procedure btnGOClick(Sender: TObject);
      procedure memEditorChanged(Sender: TObject);
      procedure UpdateStatus(const AMessage: TfpgString);
    public
      procedure AfterCreate; override;
    end;
  