OnChangeValue ?

[akurka]

Hallo Perlsau
Tut mir leid dass ich Dich nochmal beanspruche aber es haut nicht.
Muss man für die Setter Deklaration immer eigene Klasse deklarieren
oder kann ich auch bestehende nehmen ? Ich habe beides probiert
aber ohne Erfolg. Was mache ich falsch ?

Delphi-Quellcode:

unit menueREF;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ExtCtrls,
  NC__09,NC__08,NCAS09,NCKU00,NCKU09;

type
  TForm2 = class(TForm)
    Image1: TImage;
    procedure MenueCreate(Sender: TObject);
    procedure OnValueChange;
    procedure StatusBild;
    procedure Man;
    procedure MenueDestroy(Sender: TObject);
    procedure OnKeyPress(Sender: TObject; var Key: Char);
  private
     //fBWStellung: Integer;
     //procedure setBWStellung(const value: Integer);
    { Private-Deklarationen }
  public
      //OnValueChange :TNotifyEvent;
      //Property BWStellung :Integer read GetfBWStellung write SetfBWStellung;
    { Public-Deklarationen }
  end;

  TMeineKlasse = class
    private
       fBWStellung: Integer;
       procedure setBWStellung(const value: Integer);
    public
      OnValueChange :TNotifyEvent;
      Property BWStellung :Integer read getfBWStellung write SetfBWStellung;
    end;


var
  Form2: TForm2;
  ActiveImage :TImage;
  F_KeyA :boolean;
  procedure OptionFehlt;

implementation
{$R *.dfm}
uses NCUP01,NCUP10,NCUP11,NCUP12,NCUP13;
//=====================================================
//procedure TForm2.setBWStellung(const value: Integer);
procedure TMeineKlasse.setBWStellung(const value: Integer);
begin
  if (fBWStellung = value) then Exit;
    fBWStellung := value;
  if Assigned(OnValueChange) then
    OnValueChange(Self);
end;
//-------------------------------------------------
procedure TForm2.OnValueChange;
begin
  StatusBild;
end;
//====================================================
procedure TForm2.MenueCreate(Sender: TObject);
begin
  keypreview:=true;
  //BWStellung := int(Status.CNC.ZBETR);
  ActiveImage :=Image1;
  Form2.ClientWidth:=512;
  Form2.ClientHeight:=256;
  Form2.Image1.Width:=511;
  Form2.Image1.Height:=255;
  F_obereAchsen:=false;
  F_KeyA := false;
end;
//=====================================================
procedure TForm2.MenueDestroy(Sender: TObject);

die Fehler Meldung ist die gleiche :
[Fehler] menueREF.pas(35): Feld- oder Methodenbezeichner erwartet

Gruss
Anton