Accessviolation in Klassen-Prozedur

[knusprig]

Hi,

ich hab ein kleines Problemchen mit meinem Programm. Es geht um folgenden Quellcode.

Delphi-Quellcode:

type TGraph = class(TObject)
  //Felder
  xlength : integer;
  ylength : integer;
  center : TPoint;
  //Methoden
  procedure DrawAxes(Canvas: TCanvas; center: TPoint; xlength, ylength: integer);
  procedure DrawHorzMarkers(Canvas: TCanvas; Left: TPoint; len: Integer);
  procedure DrawVerMarkers(Canvas: TCanvas; Top: TPoint; len: Integer);
end;

//*****************************************************************************
//Klassendefinition von TSchieber
//*****************************************************************************
type TSchieber = class(TGraph)
  //Felder
  l : real;                 //Vom Benutzer angegeben
  r : real;                 //Vom Benutzer angegeben
  a : real;                 //Strecke von 0 bis Berührung auf x
  b : real;                 //Strecke von 0 bis Berührung auf y
  px : real;                //X-Wert des Punktes P
  py : real;                //Y-Wert des Punktes P
  rad : real;               //Radius des Kreises um den Punkt P
  richtung :  boolean;       //Richtung des Doppelschiebers
  //Methoden
  procedure DrawLine(Canvas: TCanvas; a: integer);
end;


implementation

.........
.........

procedure TSchieber.DrawLine(Canvas: TCanvas; a: integer);
begin
  //Berechnung der Strecken
  l := strtoint(wertsetzen.valueset.Edit_L.text);
  r := strtoint(wertsetzen.valueset.Edit_R.text);
  b := (sqrt(sqr(l)-sqr(a)));

  //Berechnung der Koordinaten
  canvas.MoveTo(center.x, center.y + trunc(b));
  canvas.LineTo(center.x + a, center.y);

end;

In der Zeile, in der l den Wert aus Edit_L zugewiesen bekommt, erhalte ich beim compilen eine Access Violation. Kann mir jemand sagen warum und was ich dagegen machen kann?