nicht-Vererbte private-Methode überschreiben

[Skiron]

Jetzt hab ich so was gemacht:

Delphi-Quellcode:

  TForm1 = class(TForm)
  //..
  private
    { Private declarations }
    procedure SetCursor(Value: TCursor);
  public
    { Public declarations }
    property Cursor;
  end;

//...

procedure TForm1.SetCursor(Value: TCursor);
begin
  inherited;
  ShowMessage('');
end;

Wenn ich aber den Cursor setz, kommt keine Messagebox!

Und ich kanns nicht so schreiben
 property Cursor: TCursor read FCursor write SetCursor default crDefault; weil er dann FCursor nicht kennt...