type
  DGDir = class(TObject)
    path: string;
  private

  public
    constructor Create(path: string); overload;
end;

constructor DGDir.Create(path: string);
begin
  self.path:=path;
end;