{$mode objfpc} Type tLObject=Class; Type tLObject=Class End; Begin End.