uses System.IOUtils;

var
  Path1, Path2: string;
begin
  Path1 := TDirectory.GetCurrentDirectory;

  //documents folder: the writable place
  //on mobile platforms
  Path2 := TPath.GetDocumentsPath;

  WriteLn(Path1);
  WriteLn(Path2);
end.