Arthur, look to my code again. There is a procedure "DrawImage" I draw 4 grass sprites, 4 road sprites and one barrel But when I just put my function to file program don't render anything and it cannot be closed (I must use Crtl + Alt + Delete). I found a line where's program crash:
[pascal] Read(MapFile, StrChain); [/pascal]
When I write ReadLn theres a the same problem. What do u think?