type
  TMan = class
  public
    Name: string;
    constructor Create;
  end;

constructor TMan.Create;
begin
  Name := 'unknown';
end;

var
  Man: TMan;
begin
  Man := TMan.Create;
  //man.Name is 'unknown'

  WriteLn('name is ', Man.Name);
end.