Assignfile(dum_f,dum_path+'\'+ChangeFileExt(dum_fn,'.log'));
    ReWrite(dum_f);

      Writeln(dum_f,'[実施日]');
      Writeln(dum_f,FormatDateTime('yyyy"."mm"."dd',Now));

　　　　　　　　：
　　　　　　　　：　　
　　　　　　　　：
　　　　　　　　：
　

こんなものを見つけましたが、この残り時間で新しい技術にはとうていチャレンジできません！