Eigene Classen

[smart]

Hallo Alle!

Ich bin einwenig mit eigenen Classe am spielen. Ich möchte das lernen. Jetzt habe ich auf einer Form ein TEdit und ein TButton. Wenn ich auf dem Button klicke, soll der Text im TEdit erscheinen. Hier der Code. Das man das ganze einfacher machen kann, ist mit bekannt. Das soll nur eine Übung sein. Der Code klappt nicht.

Delphi-Quellcode:

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.DFM}

Type
    TEingabe = Class(TEdit)
    private
    Ein: String;
    Public
    procedure Eingeben(Ein: String);
end;

procedure TEingabe.Eingeben(Ein: String);
begin
Text := Ein;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
TEingabe.Eingeben(Button1.Caption);
end;

end.

Was mache ich da falsch?

Grüße
Heike