procedure TForm1.FormActivate(Sender: TObject);
var
Image1Rect, Image2Rect: TRect;
Intersection: TRect;
begin
Image1.Picture.LoadFromFile('UserTest.jpg');
Image2.Picture.LoadFromFile('BulletTest.jpg');
Image1Rect := Rect(Image1.Left, Image1.Top, Image1.Left + Image1.Width, Image1.Top + Image1.Height);
Image2Rect := Rect(Image2.Left, Image2.Top, Image2.Left + Image2.Width, Image2.Top + Image2.Height);
if IntersectRect(Image1Rect, Image2Rect) then
begin
// collision detected
end;
end;