Странно, у меня все работает:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
myDate : TDate;
begin
myDate:=Now;
myDate:=myDate + 364;
ShowMessage(DateToStr(myDate));
end;
Переменную myDate надо объявлять не как TDateTime, а как TDate либо же использовать:
Код:
myDate:=Trunc(myDate) + 364;