Системные Дата Время

[Giovanni]

Всем привет! Я у Вас новенький, делфи знаю так-сяк и вот столкнулся с такой проблемой:
Мой сценарий не универсален
Искал в инете как можно сделать его таковым, но толку 0.

Так работает:

procedure SetSystemDateTime;
var
SDT : _SYSTEMTIME;
begin
GetSystemTime(SDT);
SDT.wYear :=2015;
SDT.wMonth :=01 ;
SDT.wDay :=01 ;
SDT.wHour := 8;
SDT.wMinute :=00 ;
SDT.wSecond :=00 ;
SetSystemTime(SDT);

НО, мне нужно изменить ТОЛЬКО год(системной даты) время, и месяц с днем оставить + сделать это так чтобы каждый раз был ввод текущего и добавление к нему одного года,
т.е. например сейчас 2014, я нажимаю Button и уже 2015, еще раз Butt и уже не 2015 а 2016. Понял только то что мне нужен компонент DateTime.
Помогите

[WhatO_o?!]

var
SDT : _SYSTEMTIME;
begin
GetSystemTime(SDT);
SDT.wYear := SDT.wYear + 1;
SetSystemTime(SDT);

Попробуй так

[Giovanni]

Сообщение от WhatO_o?!

var
SDT : _SYSTEMTIME;
begin
GetSystemTime(SDT);
SDT.wYear := SDT.wYear + 1;
SetSystemTime(SDT);

Попробуй так

Огромное Вам спасибо!!!!!! Ура!! Получилось! Просто) Как и все гениальное)