그려봅니다.

var
  Form1: TForm1;

implementation

uses GraphicControl1;

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var
  GraphicControl1 : TMyShapeComponent;
begin
    GraphicControl1 := TMyShapeComponent.Create(Self);
    InsertControl(GraphicControl1);

end;
-----------------------------------------------------------
uses
  SysUtils, Classes, Controls, Graphics;

type
  TMyShapeComponent = class(TGraphicControl)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    procedure Paint; override;
    constructor Create(AOwner: TComponent); override;
  end;

implementation

{ TMyShapeComponent }

constructor TMyShapeComponent.Create(AOwner: TComponent);
begin
  inherited;
    Width := 1000;
    Height := 1000;
end;

procedure TMyShapeComponent.Paint;
begin
  Canvas.Brush.Color := clWindow;
  Canvas.Polygon([Point(100, 100), Point(150, 150),
    Point(200, 100), Point(150, 50)]);
end;


즐푸.~~