[NumLock]

Код:

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Edit2: TEdit;
    procedure FormCreate(Sender: TObject);

procedure TForm1.FormCreate(Sender: TObject);
var
  today: TDate;
begin
  today:=Now;
  Edit1.Text:=DateToStr(today);
  today:=IncYear(today, 3);
  Edit2.Text:=DateToStr(today);
end;