Klasse in Unit verwenden

[hamster1989]

hallo,

ich möchte folgende klasse in der unit1 verwenden:

Delphi-Quellcode:

unit geomForm;

interface
 type
TGeomForm = class

private
Fx: Integer;
Fy: Integer;
public
procedure verschieben (dx, dy: integer);
end;

implementation


procedure verschieben (dx, dy: integer);
begin
  Self.Fx:= Self.Fx + dx;
  self.Fy:= self.Fy + dy;

end;

end.

Unit1:

Delphi-Quellcode:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
var geomForm: TgeomForm;
begin
  geomForm := TgeomForm.Create;
  geomForm.verschieben(10,10);
  geomForm.Free;
end;

end.

dabei treten folgende Fehler auf:

undefinierter Bezeichner self

(geomForm Zeile 19-20) Operator oder Semikolon fehlt

(geomFrom Zeile 20) Anweisung erforderlich aber Ausdruck vom Typ Integer gefunden

Ungenügend Forward- oder External-Deklaration: 'TGeomForm.verschieben'

verwendete Unit kann nicht compiliert werden


ich hoffe ihr könnt mir sagen was schief läuft.

mfG