Retornando a hora da criação de um diretório

Function DirectoryTime(aDir: String): String;
var
srFile: TSearchRec;
begin
if FindFirst('C:WINDOWS',faDirectory,srFile)=0 then
begin
result := TimeToStr(FileDateToDateTime(srFile.Time));
end;
end;