unit ParentForm;

interface
uses
  Forms,
  XMLDoc;

type
  IParentForm = Interface(IInterface)
    procedure Msg( msg : string);
    procedure LogMessage( msg : string);
    procedure SetPrinterstatusText( txt: string; alert: boolean);

    function GetFormObject() : TForm;

    function GetXMLDocument() : TXMLDocument;

  End;

implementation

end.