crear carpetas en android

[amorones]

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;