Wykrywanie obiektu nad obiektem

W jaki sposób sprawdzić czy jeden obiekt jest nad drugim?

Konkretnie, to chce zrobić linię, która będzie się przesuwać, i jak najedzie nad shape1, to ma wykonać się jakaś komenda, i jak "zjedzie" ze shape1 to ma wykonać się druga komenda.

Jak to zrobić? Proszę o jakieś konkretne odpowiedzi, bo jak zakładam temat, to mam 3,4 odpowiedzi i koniec, nikt nie odpisuje.

Znasz takie powiedzenie - Myślimy i wyrażamy się precyzyjnie?
Raczej chodziło Ci o komponent, a nie o obiekt. Jeśli komponent obiekt1 jest mniejszy od obiekt2 to zadziała chyba tak:

  if  (Obiekt1.Left  > Obiekt2.Left) and (Obiekt1.Left + Obiekt1.Width <  Obiekt2.Left + Obiekt2.Width) ) then
    if  (Obiekt1.Top  > Obiekt2.Top) and (Obiekt1.Top + Obiekt1.Height <  Obiekt2.Top + Obiekt2.Height) ) then
    begin
       //obiekt 1 jest "nad" obiektem 2 
    end;

Poczytaj sobie - dobrze Ci radzę - o OOP.