Надо чтоб image1, касласалась КРАЯ image2, image 2 после этого убирается, а у меня получается так, что убирается image2 только после того как коснусь ЦЕНТРА image2, код:
if image1.Top = image2.Top then
begin
if image1.Left = image2.Left then
image2.Visible := false;
end;
if image1.Top = image2.Top then
begin
if image1.Left = image2.Left then
image2.Visible := false;
end;