Delphi/Tworzenie własnych komponentów

Z Wikibooks, biblioteki wolnych podręczników.

procedure TForm1.Button1Click(Sender: TObject); begin Canvas.Ellipse(20,20,80,80); end;