program ClassFunctionTest;
{$APPTYPE CONSOLE}
{$R *.res}

type
  TBaseClass = class
    class function Test: string;
  end;

  TClass1 = class(TBaseClass)
    class function Test: string;
  end;

class function TBaseClass.Test: string;
begin
  Result := 'function in TBaseClass';
end;

class function TClass1.Test: string;
begin
  Result := 'function in TClass1';
end;

type
  TBaseClassClass = class of TBaseClass;
var
  myclass: TBaseClassClass;
begin
  myclass := TClass1;
  Writeln(myclass.Test, ', actual class is ', myclass.ClassName);
  Readln;
end.