1:

((Image1.Left + Image1.Width > Image2.Left) and (Image1.Left < Image2.Left + Image2.Width)) or ((Image1.Top + Image1.Height > Image2.Top) and (Image1.Top < Image2.Top + Image2.Height))					

1:
2:
3:
4:
5:
6:
7:
8:

function TForm1.CollisionTest: Boolean;
begin
  Result:=
    (((Image1.Left > Image2.Left) and (Image1.Left < Image2.Left + Image2.Width)) or
    ((Image1.Left + Image1.Width > Image2.Left) and (Image1.Left + Image1.Width < Image2.Left + Image2.Width))) and
    (((Image1.Top > Image2.Top) and (Image1.Top < Image2.Top + Image2.Height)) or
    ((Image1.Top + Image1.Height > Image2.Top) and (Image1.Top + Image1.Height < Image2.Top + Image2.Height)));
end;					

1:

function IntersectRect(out Rect: TRect; const R1, R2: TRect): Boolean;