Черт, все просто:
var StartTime:TdateTime;
Begin
StartTime:=date; //текущая дата;
ShowMessage(datetostr(starttime));
StartTime:=StartTime+5;
ShowMessage(datetostr(starttime));
end;
На одной моей машине такая вариация работает, на другой нет
Видать,Дельфя криво стоит
