Problem mit Klasse bei der Wurzelberechnung

[tobiasw]

hi,

folgendes Problem ich habe zur Übung der Klassen mir ein Prog. geschrieben zur Wurzelberechnung. So dafür habe ich die Unit: Unit2Wurzel erstellt. Dort befindet sich folgender Quelltext:

Delphi-Quellcode:

unit Unit2Wurzel;

interface

type
TWurzel = class
protected
Wurzel:double;
public
function set_Wurzel(zahl:double):double;
end;

implementation

function TWurzel.set_Wurzel(zahl:double):double;
begin
wurzel:=sqrt(zahl);
result:=wurzel;
end;
end.

das habe ich dann mit der Unit 1 aufgerufen und dann beim Kompilieren des Programms kommt folgender Fehler das ein Operator oder ein Semikolon fehlt.
Hier der Code der Unit 1

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;
Ergebnis:TWurzel;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
edit2.text:=Floattostr(Ergebnis(StrToFloat(Edit1.text)));
end;

end.

der Quellcode funktioniert aber wenn ich keine Klassen verwende also das hier edit2.text:=Floattostr(Ergebnis(StrToFloat(Edit1.t ext))); und dort kommt der Oben beschrieben Fehler

Gruß