[pascal]
if (edit1.Text = '6') and (block.Image = formGame.DXImageList.Items.Find('Block2')) then
[/pascal]

this condition will not be accepted as 61... i fail to understand the problem