Drag'n'Drop po formie

Siemanko.
Pisze programik zaliczeniowy na studiach, który ma "imitować" GUI Windowsa :)
Tzn. na formie muszę sobie NARYSOWAĆ komponenty symulujące okienka, przyciski, itp. i zrobić ich obsługę. W sumie ze wszystkim sobie poradzę, ale jeszcze nigdy nie korzystałem z Drag'N'Dropa, a szczególnie na własnych "komponentach" (to nie są komponenty VCL lecz obiekty klas stworzonych przeze mnie).

To, czego potrzebuję, to procedurka lub funkcja, która wyłapie mi taką czynność:
1)Kliknięcie na okienko i trzymanie przycisku (zrobiłem funkcję, która zwraca index <czyli jakby "uchwyt"> do klikniętego okna, więc z jego identyfikacją nie ma problemu)
2) PRzeciągnięcie, z przytrzymanym lewym przyciskiem, na jakąś odległość
3) Odczytanie aktualnych współrzędnych myszki po puszczeniu LPM

Nie bardzo wiem jak się zabrać do punktu 2) i 3). Gdyby ktoś mógł udzielić mi wskazówek, to byłbym wdzięczny :)

Pozdro 4 All!

Co do punktu trzeciego, to jest przecież zdarzenie OnMouseUp :

procedure TForm1.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
    showmessage('X: '+inttostr(X) + ' Y: ' + inttostr(Y));
end;