{$MODE OBJFPC}
unit testunit;

interface

generic function Test<T: TObject>(): T;

implementation

generic function Test<T: TObject>(): T;
begin
   Result := nil;
end;

begin
   specialize Test<TObject>;
end.