Delphi 5 - Eigene Edit-Komponente mit meiner Prozedur

[DeMoehn]

Guten Tag.

Ich bin jetzt soweit:

Delphi-Quellcode:

unit MarkEdit1;

interface

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

procedure Register;

type
  TMarkEdit1 = class(TEdit)
  private
    { Private-Deklarationen }
    Fnote: boolean;
    eingabe: string;
    function TryStrToInt(string_in:string):boolean;
  protected
    { Protected-Deklarationen }
    
  published
    { Published-Deklarationen }
    property Note:boolean read Fnote write Fnote;
  public
    { Public-Deklarationen }
    procedure onExit; override;  // Hier ist die onExit Proz.
  end;

implementation

procedure Register;
begin
  RegisterComponents('Win32', [TMarkEdit1]);
end;

// Funktion zum Prüfen ob Eingabe ein String
function TMarkEdit1.TryStrToInt(string_in:string):boolean;
begin
  Try
    StrToInt(string_in);
    Result := true;
  except on EConvertError do
    Result := false;
  end;
end;

procedure TMarkEdit1.onExit; // Hier soll sie verändert werden
begin
  if(AText.Text <> '') then begin
    if(TryStrToInt(AText.Text)) then begin
      eingabe := StrToInt(AText.Text);
      if(eingabe > 15) then begin
        ShowMessage('Zahl zu groß');
        AText.Text := IntToStr(15);
      end;
      if((StrToInt(AText.Text[1]) = 0) and (AText.Text[2] = '')) then
        AText.Text := '0'+AText.Text
      else if(((eingabe < 10) and (eingabe <> 0)) and (Length(AText.Text) < 2)) then
        AText.Text := '0'+AText.Text;
    end
    else
      ShowMessage('kein gültiger Integerwert');

    inherited OnExit;
end;

end.

Jedoch weiß ich nicht wie es weiter geht denn der Compiler meldet immer "Methode 'onExit' nicht in Basisklasse gefunden" ich habe ein wunderbares Tutorial gefunden unter http://www.delphi-treff.de/tutorials...icklen/page/1/ jedoch hilft es mir nicht mehr weiter.

Um Hilfe wäre ich sehr dankbar