State pattern in DELPHI

[bernhard_LA]

ich versuche gerade eine Anwendung über die Einführung eines State Pattern
(https://sourcemaking.com/design_patterns/state )
zu verbessern.
Aktuell scheitere ich daran die State Klasse in meiner zweiten unit zu definieren, in dieser unit ist die
eigentlich Klasse ja nur über eine foreward deklaration bekannt. Was mache ich hier falsch ?

Delphi-Quellcode:

unit TProcessor;
///
///     unit 1  mit der Klasse  die zukünftig auch eine State class bekommen soll 
///
interface

uses Types, Classes;

implementation

type
    TProcessor = class () 
 
    FState :  TProcessStatesClass;   //  kommt dann noch 


    function GetState : TProcessStatesClass;
    procedure SetState(const Value : TProcessStatesClass);

    end;



end. 


unit ProcessStates;
///
///     unit 2  mit der Ober-Klasse  für die states 
///

interface

uses Types, Classes;

implementation

type

     TProcessor = class; // // Forward declaration
     TProcessStatesClass = class of TProcessStates;

type TProcessStates = class(TObject)

private

    FProcessor : TProcessor ;

public


end;


end.