@QuickAndDirty: TDirectory.CreateDirectory ist ein ForceDirectory ... das Exists darfst du dir hier also gern sparen
Tipp: Da du hier bereits mit $If arbeitest,
dann bietet es sich an, alles via $ElseIf zusammenzufassen,
und schon passt da auch noch ein wunderschönes $Else mit dran, für Alles, was du vergessen hast. (OSX, Linux und was es irgendwann alles mal geben wird)
Delphi-Quellcode:
{$IF defined(MSWINDOWS)}
...
{$ELSEIF defined(ANDROID)}
AppDataPath := TPath.getHomePath;
{$ELSEIF defined(IOS)}
AppDataPath := TPath.GetDocumentsPath;
{$ELSE}
{$MESSAGE Fatal 'OS not supported'}
{$ENDIF}