unit Unit2;interface
uses
 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms
  Dialogs;type
TDate=class
public
fDate:TDateTime;
constructor Create; overload
constructor Create (y,m,d:Integer);overload
end;
implementation{ TDate }constructor TDate.Create;
begin
fDate:=Date;
end;constructor TDate.Create(y, m, d: Integer);
begin
fDate:=EncodeDate(y,m,d);
end;end.