var
  oXml: IXMLDocument;
begin
  try
    Query1.Open;

    if xmlForm.Query1.Fields[0].Value > 0 then
    begin
      MessageBox(Self.Handle, PChar(VarToStr(Query1.Fields[1].Value)), PChar('Внимание!'),
        MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    end
    else
    begin
      oXml := TXMLDocument.create(nil);
      oXml.XML.Text := VarToStr(Query1.Fields[1].Value);
      oXml.XML.Text := XMLDoc.FormatXMLData(oXml.XML.Text);
      oXml.Active := true;
      SynMemo1.Text := oXml.XML.Text;
    end;
  except
    On e: EDatabaseError do
      messageDlg(e.message, mtError, [mbOK], 0);
  end;
end;

procedure tnew.execute;
var
  oXml: IXMLDocument;
  v: Integer;
begin
  try
    xmlForm.Query1.Open;

    v := xmlForm.Query1.Fields[0].Value;
    if v = 0 then
    begin
      oXml := TXMLDocument.create(nil);
      oXml.XML.Text := VarToStr(xmlForm.Query1.Fields[1].Value);
      oXml.XML.Text := XMLDoc.FormatXMLData(oXml.XML.Text);
      oXml.Active := true;
      xmlForm.SynMemo1.Text := oXml.XML.Text;
    end
    else
    begin
      MessageBox(Self.Handle, PChar(VarToStr(xmlForm.Query1.Fields[1].Value)), PChar('Внимание!'),
        MB_OK + MB_ICONWARNING + MB_APPLMODAL);
    end;
  except
    On e: EDatabaseError do
      messageDlg(e.message, mtError, [mbOK], 0);message объекта e
  end;
end;

MessageBox(Self.Handle, PChar(VarToStr(xmlForm.Query1.Fields[1].Value)), PChar('Внимание!'),
            MB_OK + MB_ICONWARNING + MB_APPLMODAL);