Komponentenentwicklung mit Delphi7

[Christian18]

so hier ist mein kompletter code den ich bis jetzt habe.

Delphi-Quellcode:

unit Diagramm;

interface

uses
  SysUtils, Classes, ExtCtrls;

type
  TComponent1 = class(TComponent)
  private
    FRand : Boolean;
    procedure Diagramm();
    { Private-Deklarationen }
  protected
    { Protected-Deklarationen }
  public
    { Public-Deklarationen }
  published
    property Rand : Boolean Read FRand Write FRand;
    { Published-Deklarationen }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Standard', [TComponent1]);
end;

procedure TComponent1.Diagramm();
  var i : TImage;
begin
  i:=TImage.Create(self);

  // Rahmen zeichnen
  if FRand=True then
    begin
      i.Canvas.Rectangle(0, 0, i.Width, i.Height);
    end;

  // Achsen zeichnen
  i.Canvas.MoveTo(30, 30); 
  i.Canvas.LineTo(30, i.Height - 30); 
  i.Canvas.LineTo(i.Width - 30, i.Height - 30);
end;

end.

PS: Mit den Code ist es immernoch so, das wenn ich die Komponente auf meine Form lege, das dann ein kleines Viereck erscheint und nicht wie bei einem Label der Text. wenn ich bei den eigenschaften den Rand auf True setze, dann würde ich gerne das auch sehen. also wie kann ich das machen???

MFG Christian18