type
  TMan = class
  public
    Name: string;
  end;

var
  Man: TMan;
begin
  //Create is inherited from TObject:
  //no constructor needs declaring
  Man := TMan.Create;

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