Criar Classe TEDIT em unit Separada e usar p outros Form

Pessoal:
Por favor: Como faço para criar um objeto EDIT em uma unit separada, tipo um unit com funções.

Depois eu chamo este objeto no evendo on create do meu form.
Quero um edit com a seguinte restrição: Se no evento on key press a quantidade de caracteres for menor de 15 é exibida uma msg.

A ideia é usar este mesmo edit por vários forms, para mostrar a vantagem da herança e tambem reaproveitamento de codigo, pois se varios forms estiverem utilizando este edit e houver uma alteração de negócio tipo: agora vamos permitir digitar até 20 caracteres, eu somente atualizo o metodo pertencente a classe implementada na Unit Funções.

Por favor não sei fazer..

Alguem pode dar um exemplo?. Me enviaram este exemplo, porem qdo abro uma nova unit, salvo e compilo dá mtos erros !!

********************************************************
TEditModificado = class(TEdit)
private
procedure OnChange(Sender: TObject);
public
constructor Create(AOwner: TComponent); override;
end;

implementation

procedure TEditModificado.Create(AOwner: TComponent);
begin
inherited;
Self.Color := clRed;
Self.Height := 69;
Self.Width := 69;

Self.OnChange := OnChange;
end;

procedure TEditModificado.OnChange(Sender: TObject);
begin
if Length(Self.Text) > 15 then showmessage(´mais de 15!´);
end;



no Show do Form...

Código:

var
Edit : TEditModificado;
begin
Edit := TEditModificado.Create(Self);
Edit.Parent := Form1;
Edit.Visible := true;
end;