[demon112]

во, функцию забабахал) и спрайты не нужны более)

function stolk(im1:image; xim1:integer; yim1:integer; im2:image; xim2:integer; yim2:integer):integer;
begin
AddSprite(im1, getImageWidth(im1), GetImageHeight(im1));
AddSprite(im2, getImageWidth(im2), GetImageHeight(im2));
SpritePosition(0, xim1, yim1);
SpritePosition(1, xim2, yim2);
stolk:=Collision(0, 1, 0);
RemoveSprites;
end;