{ Old file: tbs0156b.pp } { } unit ub0133; interface type _win_st = record _parent : ^WINDOW; end; WINDOW = _win_st; implementation end.