[ファイルのタイムスタンプを得る関数]
        int ww = FileAge( ParamStr(0) );

    Form1->Caption = FormatDateTime( "yyyy/mm/dd",FileDateToDateTime(ww) );

[タイムスタンプを変更する]
        int     ha, fa;
        TDateTime   dt;

    dt = StrToDateTime( "2009/07/07 14:00:00" );
    fa = DateTimeToFileDate( dt );
    ha = FileOpen( ファイル名, fmOpenRead || fmShareExclusive );
    if( FileSetDate(ha,fa)==0 ) ShowMessage( "変更しました。" );
                else            ShowMessage( "エラー発生" );
    FileClose( ha );