type
  TMan = class
  public
    Name: string;
    constructor Create(const AName: string);
  end;

constructor TMan.Create(const AName: string);
begin
  Name := AName;
end;

var
  Man: TMan;
begin
  Man := TMan.Create('Alex');
  //man.Name is 'Alex'

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