Canvas - Romb, równoległobok

Potrzebuje na szybko funkcji, która umożliwi rysowanie rombu i równoległoboku na formie.

Znalazłem takie coś, ale nie chcę poprawnie rysowować:
http://4programmers.net/Forum/C_i_C++/37888-Imag1-Canvas-Rownoleglobok

W programie mam PaintBoxa i mam podać współrzędne na których ma zostać wstawiony równoległobok po kliknięciu na przycisk. Po kliknięciu na drugi przycisk ma się rysować romb.

Jak dobrać te punkty dobrze?

A na serio tak ciężko samemu napisać? po klasie TCanvas strzelam że delphi

procedure Rysuj_Rownoleglobok(A, B, C, D : TPoint);
begin
  Form1.Canvas.MoveTo(A.X, A.Y);
  Form1.Canvas.LineTo(B.X, B.Y);

  Form1.Canvas.MoveTo(B.X, B.Y);
  Form1.Canvas.LineTo(C.X, C.Y);

  Form1.Canvas.MoveTo(C.X, C.Y);
  Form1.Canvas.LineTo(D.X, D.Y);

  Form1.Canvas.MoveTo(D.X, D.Y);
  Form1.Canvas.LineTo(A.X, A.Y);
end;

Teraz jak chcesz tego użyć to stwórz 4 zmienne typu TPoint.

var 
  Punkt1, Punkt2, Punkt3, Punkt4 : TPoint;
begin
  Punkt1.X := //Wspolrzedne
  Punkt1.Y := //Punktu

  Punkt2.X := 
  Punkt2.Y := 
...
  Rysuj_Rownoloeglobok(Punkt1, Punkt2, Punkt3, Punkt4);
end;