unit ugeneric59b; {$ifdef fpc} {$mode delphi} {$endif} interface type TTest = class class function Test: Integer; end; implementation class function TTest.Test: Integer; begin Result := 2; end; end.