1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type TSomethingChangedEvent = procedure(newValue: integer) of object;
type TMyClass = class
  private
    vValue: integer;
    vOnSomethingChanged: TSomethingChangedEvent;
  public
    procedure DoSomething(x: integer);
    property OnSomethingChanged: TSomethingChangedEvent read vOnSomethingChanged write vOnSomethingChanged;
end;

procedure TMyClass.DoSomething(x: integer);
begin
  if x mod 2 <> vValue mod 2 then
    if Assigned(vOnSomethingChanged) then
      OnSomethingChanged(x mod 2);
  vValue := x;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:

procedure TMainForm.ChangedHandler(newValue: integer);
begin
  if newValue mod 2 = 0 then
    ShowMessage('even value stored')
  else
    ShowMessage('odd value stored');
end;

procedure TMainForm.Create;
var MyClass: TMyClass;
begin
  MyClass := TMyClass.Create;
  MyClass.OnSomethingChanged := ChangedHandler;
  MyClass.DoSomething(20);
  MyClass.DoSomething(23);
  MyClass.DoSomething(25);
  MyClass.DoSomething(30);
  MyClass.Free;
end;					

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:

type TMyClass = class
  private
    vOwner: TForm;
  public
    constructor Create(Owner: TForm);
    procedure DoSomething(x: integer);
end;

constructor TMyClass.Create(Owner: TForm);
begin
  vForm := Owner;
end;    

procedure TMyClass.DoSomething(x: integer);
begin
  vForm.Caption := 'hello world';
end;					

1:
2:
3:

@Private und Marshall<Name der Redaktion geändert>: Wenn ich noch EINMAL, EIN EINZIGES MAL den Aufruf von Formularen in Klassen sehe, gibt´s Ärger!
Klassen haben keinerlei Zugriff auf irgendwelche Formulare. Ihr habt alles so aufzubauen, dass die Klasse die Logik übernimmt und wenn die passt, ein Formular eine Interaktion ausführt!
Bei Gelegenheit gehe ich den kompletten Code in CArma durch und entferne alles, was mir nicht passt. Fehler dürft ihr dann suchen.