[MeTaL]

Algo interesante Seria.....

var Archivo:String;
begin
Archivo:='Midir';
if createdir(archivo) = false then begin
label1.caption:='Carpeta '+archivo+' Creada Con Exito';
End else
label1.caption:='No se Pudo Crear Carpeta '+archivo;
end.