ZIP folder - Add a password

[Karo]

Есть такой примерчик:

 ZipFile.CREATE('c:\myzipfolder.zip');
			ZipFile.TEXTMODE(FALSE);
			IntVal:=101010256;
			ZipFile.WRITE(IntVal);
			IntVal:=0;
			FOR i:=1 TO 9 DO
			  ZipFile.WRITE(IntVal);
			ZipFile.CLOSE;
			CREATE(Shell32);
			ZIPFolder:=Shell32.NameSpace('c:\myzipfolder.zip');
			Filename := 'c:\testfile.txt';
			ZIPFolder.CopyHere(Filename);
			CLEAR(Shell32);

Создает zip папку, а как еще пароль добавить?