type
  TFake = class( TSplitter );

implementation

procedure TForm1.FormCreate(Sender: TObject);
begin
   TFake( Splitter1 ).PopupMenu := PopupMenu1;
end;