S: Dringend Hilfe für Delphi-Programm mit Grafikausgabe

[cook]

Hi Leutz...
Ich hab mal wieder ein Problem. Ich kriegs nicht hin einen berechneten Wert in einem Edit Feld auszugeben.... hab folgenden Sourcecode:

Also meine Raumklasse sieht so aus:

Delphi-Quellcode:

type
  TRaum = class(TObject)

  private { Private-Deklarationen }
    Raumbreite: single;   {in cm}
    Raumlaenge: single;   {in cm}
    procedure SetrBreite(const breit: single);
    procedure SetrLaenge(const lang: single);

  public { Public-Deklarationen }
    property rBreite: single  {in m}
      read Raumbreite write SetrBreite;
    property rLaenge: single  {in m}
      read Raumlaenge write SetrLaenge;
end;

Dann hängt natürlich noch die TForm1 da mit drin...

Wenn ich dann auf den Button1 klicke sollte eigentlich die Breite und Länge aus den Edit-Feldern eingelesen werden...

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
    FRaum.rBreite := StrToFloat(rBreitEingabe.Text);
  FRaum.rLaenge := StrToFloat(rLangEingabe.Text);
    rFlaeche.Text := FloatToStr(FRaum.rBreite);
end;

jedoch macht er mir hier dann ne Fehlermeldung bei Raumbreite:=breit -->EAccessViolation

Delphi-Quellcode:

procedure TRaum.SetrBreite(const breit: single);
begin
  if (breit > 0) and (breit < 50)
    then Raumbreite := breit;     
end;

Any Hints?