Data do Setup

funtion ObtemDataLocal: TDateTime;
var SystemTime: TSystemTime;
ano, mes, dia, hora, min, seg, mseg: word;
begin
GetLocalTime( SystemTime );
with SystemTime do
begin
ano := wYear;
mes := wMonth;
dia := wDay;
hora := wHour;
min := wMinute;
seg := wSecond;
mseg := wMilliseconds;
end;
Result := EncodeDateTime( ano, mes, dia, hora, min, seg, mseg );
end;