EAccessViolation Fehler

[DelphiNewbieh]

Hi,
bin grad dabei für die Delphi Arbeit am kommenden Dienstag zu lernen.
Wir sollten ein Programm erstellen, dass die Fläche und den Umfang von Quadrat, Rechteck und Kreis errechnet. Bisher habe ich aber nur das Rechteck. Allerding komm ich immer wieder zum selben Fehler.
Ich hoffe jemand kann mir helfen. Vielen Dank.

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    E_Laenge: TEdit;
    E_Breite: TEdit;
    B_Rechteck: TButton;
    E_Flaeche: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    E_Umfang: TEdit;
    Label6: TLabel;
    Label7: TLabel;
    E_Radius: TEdit;
    B_Kreis: TButton;
    Label8: TLabel;
    Label9: TLabel;
    E_Quadrat: TEdit;
    B_Quadrat: TButton;
    procedure FormCreate(Sender: TObject);
    procedure B_RechteckClick(Sender: TObject);
    procedure B_KreisClick(Sender: TObject);
    procedure B_QuadratClick(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  geo: TGeo;
  rechteck: TRechteck;


implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin
  rechteck := rechteck.Create(100,100);
end;

procedure TForm1.B_RechteckClick(Sender: TObject);
var Laenge, Breite: single;
begin
  Laenge:= strtofloat(E_Laenge.Text);
  Breite:= strtofloat(E_Breite.Text);
  rechteck.SetL(Laenge);
  rechteck.SetB(Breite);
  rechteck.BerechneF;
  rechteck.BerechneU;
  E_Flaeche.Text:=floattostr(geo.GetF);
end;

procedure TForm1.B_KreisClick(Sender: TObject);
begin
  //
end;

procedure TForm1.B_QuadratClick(Sender: TObject);
begin
  //
end;

end.

Delphi-Quellcode:

unit Unit_GeoObjekte;

interface

type

TGeo = class (TObject)
  protected
    FFlaeche: single;
    FUmfang: single;
  public
    procedure BerechneF; virtual; abstract;
    procedure BerechneU; virtual; abstract;
    function GetU: single;
    function GetF: single;
  end;

TRechteck= class(TGeo)
  protected
    FLaenge, FBreite: single;
  public
    procedure BerechneF; override;
    procedure BerechneU; override;
    procedure SetL(Neu_Laenge: single);
    procedure SetB(Neu_Breite: single); virtual;
    constructor Create(Laenge, Breite: single);
 end;

implementation

function TGeo.GetF: single;
begin
  result:= FFlaeche;
end;

function TGeo.GetU: single;
begin
  result:= FUmfang;
end;

constructor TRechteck.create(Laenge, Breite: single);
begin
  inherited create;
  FLaenge:= Laenge;<------ hier kommt der Fehler jetzt
  FBreite:= Breite;
end;

procedure TRechteck.SetL(Neu_Laenge: single);
begin
  FLaenge:= Neu_Laenge;<------ hier kam der Fehler vorher
end;

procedure TRechteck.SetB(Neu_Breite: single);
begin
  FBreite:= Neu_Breite;
end;

procedure TRechteck.BerechneF;
begin
  FFlaeche:= FLaenge * FBreite;
end;

procedure TRechteck.BerechneU;
begin
  FUmfang:= 2 * (FLaenge + FBreite);
end;

end.

[edit=SirThornberry]Zitat-Tags durch Delphi-Tags ersetzt. Mfg, SirThornberry[/edit][size=18]