Una disculpa, este es el código completo:
Código Delphi
[-]procedure TForm1.Button1Click(Sender: TObject);
Var
P: String;
Sr : TSearchRec;
begin
P := '/storage/sdcard0/Prueba/';
if forcedirectories(P) then
ShowMessage('Se creo la carpeta "Partituras"') else
ShowMessage('Fallo al crear directorio nuevo, error : '+ IntToStr(GetLastError));
end;