anchor.diff:  procedure TUramakiPlate.SaveConfigurationToXML(aXMLElement: TmXmlElement);
   begin
     //
  +end;
  +
  +function TUramakiPlate.GetParentForm: TForm;
  +var
  +  currentControl : TWinControl;
  +begin
  +  currentControl := Self;
  +  while Assigned(currentControl) and (not (currentControl is TForm)) do
  +    currentControl := currentControl.Parent;
  +  if Assigned(currentControl) and (currentControl is TForm) then
  +    Result := currentControl as TForm
  +  else
  +    Result := nil;
   end;
   
   { TUramakiRoll }
  
positive.code:     procedure LoadConfigurationFromXML (aXMLElement : TmXmlElement); virtual;
      procedure SaveConfigurationToXML (aXMLElement : TmXmlElement); virtual;
      procedure Clear; virtual; abstract;
  
      property EngineMediator : TUramakiAbstractEngineMediator read FEngineMediator write FEngineMediator;
      property OnDestroy : TNotifyEvent read FOnUramakiPlateDestroy write FOnUramakiPlateDestroy;
  
negative.code: 
  interface
  uses
    Classes, SysUtils, contnrs, Controls, ExtCtrls, db, Forms,
    mXML;
  
  const
  