Picture1.Picture = TXTextControl1.PageImage(1, pcAll)
SavePicture TXTextControl1.PageImage(1, pcAll), "test.emf"