if {здезь пишем имя обьекта который сталкивается, пр. image1}.Top>={здесь имя обьект столкновение к примеру image2}.Top then //Это мы проверили Начальную точку по Y. Дальше всё анологично.
begin
if image1.Top<=image2.Top+image4.Height then //Это мы проверили конечную точку по Y
begin
if image1.Left>=image2.left then //Это мы проверили Начальную точку по X
begin
if image1.Left<=image2.Left+image4.Width then //Это мы проверили конечную точку по X
begin
//то что происходит при столкновении пр: image1 с image2
end;
end;
end;
end;