program Project1;
{$ModeSwitch advancedrecords}

type
 TGeneralFontFileDesc=record
   Name:string;
   FontFile:string;
   constructor Init(AName:string;AFontFile:string);
   class function Construct(AName:string;AFontFile:string):TGeneralFontFileDesc;static;
 end;

constructor TGeneralFontFileDesc.init(AName:string;AFontFile:string);
begin
 Name:=AName;
 FontFile:=AFontFile;
end;

class function TGeneralFontFileDesc.Construct(AName:string;AFontFile:string):TGeneralFontFileDesc;
begin
 result.init(AName,AFontFile);
end;

begin
 writeln(TGeneralFontFileDesc.Construct('font','c:\fonts').Name);
 readln;
end.