NetBuilding, есть либа Lib_arcade, там есть такая функция единственное, тебе надо будет всё писать на этой либе( я лично чтоб на ней не писать замутил такую функцию, проверяющую совпадение двух картинок:
function sovpadenie(im1:image; x1:integer; y1:integer; im2:image; x2:integer; y2:integer): integer;
begin
AddSprite(im1, getImageWidth(im1), GetImageHeight(im1));
AddSprite(im2, getImageWidth(im2), GetImageHeight(im2));
SpritePosition(0, x1, y1);
SpritePosition(1, x2, y2);
sovpadenie:=Collision(0,1,0);
RemoveSprites;
end;