Rechteck zeichnen lassen

[inst666]

hi, ich bin neu hier und auch neu im bereich programmieren
ich hab eben mal die tutorials von computerbild gelesen und mich daran mal versucht.
man sollt einen button erstellen, der, wenn man auf ihn klickt, ein rechteck zeichnet. ich hab alles prpgrammiert und auch ablaufen lassen, delphi macht auch keine fehler, allerdgins passiert nichts, wenn ich testmodus auf den button klicke. vll kann mir ja jmd helfen :/
Hier is der quelltext zum programm:

Delphi-Quellcode:

unit rechteck;
// inst666
// 10.12.2004
// Rechteck programmieren
interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type

TGrafikobjekt=class
  x,y :integer;
  fuellfarbe:TColor;
  randFarbe:TColor;
  procedure anzeigen;
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}procedure TGrafikObjekt.anzeigen;
  begin
  Form1.canvas.pen.color:=randFarbe ;
  Form1.canvas.brush.color:=fuellFarbe;
  Form1.canvas.rectangle(x,y,x+100,y+100);
  end;

procedure TForm1.Button1Click(Sender: TObject);
 var Grafikobjekt:TGrafikobjekt;
begin
  GrafikObjekt:=TGrafikobjekt.create;
  GrafikObjekt.x:=50;
  GrafikObjekt.y:=60;
  GrafikObjekt.randFarbe:= clGreen ;
  GrafikObjekt.fuellFarbe:=clYellow;
  GrafikObjekt.anzeigen;
  GrafikObjekt.destroy;
end;

end.