안녕하세요? 땅콩맨, 박성준입니다.
간단한 '100일후 출력 프로그램'을 등록하오니 참조하여 주시기 바랍니다.

<!--CodeS-->
procedure TMainFrm.FormCreate(Sender: TObject);
var
  Present: TDateTime; // Present를 TDateTime으로 선언한다.
  Year, Month, Day : Word; // Year, Month, Day를 Word형으로 선언한다.
begin
  Present := Now + 100; // 현재날짜에 100을 더한다.
  DecodeDate(Present, Year, Month, Day); // 시간을 담는 TDateTime형의 변수에서 Year, Month,
                                                                       Day를 분리시킨다.
  DisplayEdt.Text := IntToStr(Year) + '년'+ IntToStr(Month) + '월' + IntToStr(Day)+'일입니다.';
  // DisPlayEdt에 100일후를 출력한다.
end;

procedure TMainFrm.CloseBtnClick(Sender: TObject);
begin
Close; // 프로그램을 종료시킨다.
end;

end.
<!--CodeE-->