Разделить дату на год,месяц, день

[Баламут]

var
Year, Month, Day: WORD;
.....

DecodeDate(Date, Year, Month, Day).

Теперь в переменных нужные значения.

[Terran]

Можно ещё сделать и так:

procedure TForm1.Button1Click(Sender: TObject);
var
T: SYSTEMTIME;
begin
GetLocalTime(T);
Edit1.Text:=inttostr(T.wYear);
Edit2.Text:=inttostr(T.wDay);
...
end;