you can extract the original file name as follows:

sHlp=HInfoMemo(MyFile,element)
lsFilename=ExtractString(sHlp,2)

But I use the following code to print an image direct from a binary memo:

sHlp is string

sHlp=HInfoMemo(MyFile,element) // where element is the memofield
IF ExtractString(sHlp,1)="IMG" THEN
...iPrintImage(MyFile.element,0,iYPos(),iPageWidth(),iPageHeight(),0)
END

Received this code snippet from Stefan Bentvelsen in a WinDev forum posting

Retrieving image properties from an image memo file item and printing it from an image control

W-Language