uses System.SysUtils;

type
  TConfig = class
  public
    //type constant
    const MaxConnections = 3;

    //type fields
    class var Host: string;
    class var Port: Integer;

    //type method
    class function GetConnection: string;
  end;

class function TConfig.GetConnection: string;
begin
  Result := Format('%s:%d', [Host, Port]);
end;

begin
  TConfig.Host := '10.0.0.1';
  TConfig.Port := 52;

  WriteLn('connection is ',
    TConfig.GetConnection);
  //connection is 10.0.0.1:52
end.