안녕하세요. 최용일입니다.

파일이나 폴더나 같습니다...

아래와 같이 해보세요...

procedure TForm1.Button12Click(Sender: TObject);
var
    FileRec: TSearchrec;
    FileTime: TFileTime;
    SystemTime: TSystemTime;
    DateTime: TDateTime;
    DateTimeStr: string;
begin
    if FindFirst('C:My Documents', faDirectory, FileRec) = 0 then
    begin
        FileTime := FileRec.FindData.ftCreationTime;
        FileTimeToSystemTime(FileTime, SystemTime);
        DateTime := SystemTimeToDateTime(SystemTime);
        DateTimeToString(DateTimeStr, 'dddddd tt', DateTime);
        ShowMessage('폴더 생성 시간: ' + DateTimeStr);
        FindClose(FileRec);
    end;
end;

^^ 항상 즐코하세요...