Crear carpeta con la fecha actual ???

[dellarts]

Hola

Estoy intentando crear una carpeta con la siguiente instruccion pero no lo consigo. Lo he conseguido poniendo un nombre cualkiera x cuando añado la hora no me lo hace y no sale ningun error siquiera.

var
  data:tdatetime;
  a:string;
begin
  a := 'aa1';
  data := now();
  createDir('C:\ciclistes\image#'+datetimetostr(data)+'#'+'');
end;

Saludos