Delphi XE4 > Project > Deployment には、「res.zip」というファイルへの参照があります。これは、リモート パス「res.zip」に配置されるように設定されています。
ただし、「FileExists」はコードの下で false を返します (iOS 6.1 シミュレーターで実行):
procedure TFormMain.InitCreate_Uncompress;
var
H: string;
P: string;
Z: TZipFile;
begin
H := GetHomePath;
P := H + PathDelim + 'res.zip';
if FileExists(P) then
begin
Z := TZipFile.Create;
try
Z.Open(P, zmRead);
Z.ExtractAll(H + PathDelim + 'Library');
finally
Z.Free;
end;
end
;
end;