Brush- und Pen-Farbe wird nicht angenommen

[Alexander86]

Hallo,

ich versuche seit kurzem mir die Programmiersprache Delphi beizubringen. Zur Hilfestellung stehen mir ein paar Computerbild-Artikel, die sich an Delphi-Anfänger richtet, also genau das Richtig für mich.

Nun hänge ich aber an folgendem Code:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TGrafikobjekt=class
    x,y:integer;
    fuellfarbe:tcolor;
    randfarbe:tcolor;
    procedure anzeigen;virtual;
  end;

  TKreis=class(TGrafikobjekt)
    radius:integer;
    procedure anzeigen;override;
  end;

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TKreis.anzeigen;
begin
  form1.Canvas.Ellipse(x,y,x+radius*2,y+radius*2);
end;

procedure TGrafikobjekt.anzeigen;
begin
  form1.Canvas.Pen.Color:=randfarbe;
  form1.Canvas.Brush.Color:=fuellfarbe;
end;

procedure TForm1.Button1Click(Sender: TObject);
var Kreis:TKreis;
begin
  Kreis:=TKreis.Create;
  Kreis.x:=50;
  Kreis.y:=60;
  Kreis.radius:=100;
  Kreis.randfarbe:=clGreen;
  Kreis.fuellfarbe:=clYellow;
  Kreis.anzeigen;
  Kreis.Destroy;
end;

end.

Bei diesem Code wird nach einem Klick auf den Button Button1 ein Kreis auf das Formular gezeichnet. Dabei sollte der Rand des Kreises grün und die Innenfläche gelb angezeigt werden. Leider werden die übergebenen Farben aber nicht angenommen, sondern die Standartfarben angezeigt: Rand: schwarz, Innenfläche: durchsichtig

Kann mir bitte einer erklären, wo der Fehler liegt?

Mfg Alexander