{ %NORUN } program tb0668b; {$mode objfpc} generic procedure FreeAndNil(var Obj: T); begin end; procedure FreeAndNil(var Obj); begin end; var t: TObject; begin FreeAndNil(t); specialize FreeAndNil(t); end.