Für den Anfang nimmst Du einfach 'ne TPaintBox und fügst in's OnPaint-Event folgenden Code ein:
Delphi-Quellcode:
PaintBox1.Canvas.Brush.Color := clRed;
PaintBox1.Canvas.FillRect(Rect(10, 10, 100, 100));
Anschließend kannst Du Edit-Controls hinzufügen und die Koordinaten für Rect(....) aus Text der Edit-Controls füllen lassen. Anschließend spielst du etwas mit den Properties von Canvas.Brush herum um zu sehen welche möglichkeiten du hast. Ich denke wenn du kapierst was hier passiert kannst du dein Programm verbessern.