Я это применял в интерфейсах к GTK.
## Код:
```
GtkRange* = POINTER TO LIMITED RECORD (GtkWidget) END;
GtkScrollbar* = POINTER TO LIMITED RECORD (GtkRange) END;
GtkHScrollbar* = POINTER TO LIMITED RECORD (GtkScrollbar) END;
GtkVScrollbar* = POINTER TO LIMITED RECORD (GtkScrollbar) END;
```


Еще интересная штука:
## Код:
```
POINTER TO LIMITED RECORD [untagged] END
```

Можно, например, выстроить иерархию HANDLE -> HGDIOBJ -> HBITMAP.
Или сделать перечисления, почти как настоящие.