Using BLOBS

I have a list of products which includes a picture of each item. I have stor
ed
each pic in a blob and then can display them on the update form.

I now would like to display each image on the Browse, when its record is
highlighted in its list box.

I am using  the following code with no result:-

!Display photo from stored BLOB
?Image1{PROP:NoWidth} = TRUE
?Image1{PROP:NoHeight} = TRUE
IF SELF.OriginalRequest <> InsertRecord
?Image1{PROP:ImageBlob} = PRO:Photograph{PROP:Handle}
ELSE
?Image1{PROP:Text} = 'NoPhoto.BMP'
PhotoChanged = TRUE
END
DO DisplayImage

This the PROCEDURE ROUTINE used

DisplayImage  ROUTINE !Display photo maintaining aspect ratio - Checked OK
IF ?Image1{PROP:Height} > 170
AspectRatio$ = ?Image1{PROP:Width}/?Image1{PROP:Height}
?Image1{PROP:Height} = 170
?Image1{PROP:Width} = 170 * AspectRatio$
END
IF ?Image1{PROP:Width} > 170
AspectRatio$ = ?Image1{PROP:Height}/?Image1{PROP:Width}
?Image1{PROP:Width} = 170
?Image1{PROP:Height} = 170 * AspectRatio$
END

It may be that I am placing the code in the wrong embed point or my priority
level is wrong or both, or I am completely off track.

If someone would help me, I would really appreciate it.