Converting an Image to a texture

That worked but the texture no longer fits the mesh.

If MouseHit(1) Then
bodtex=LoadImage("Body.jpg")
bh=LoadImage("bh.bmp")
bod=CreateTexture(600,600)
SetBuffer ImageBuffer(bodtex)
SetBuffer TextureBuffer(bod)
DrawImage bodtex,0,0
DrawImage bh,MouseX(),MouseY()
CopyRect(0,0,600,600,0,0,ImageBuffer,TextureBuffer)
EntityTexture m,bod
EndIf

Thanks