datum ermitteln

[mkinzler]

Dann kannst du dafür auf eine Variable verzichten:
Label1.Caption := DateToStr(date);