create a zip file with password protection.

Hi.

Please does anyone know if it is possible to write code in delphi that will send a file to a zipped folder and add a password to it in Windows XP.

I need a procedure something along these lines

procedure ZipFile(TargetFileName,Password : string);

Also need it to automatically overwrite if there's already an existing zip file present.

If anyone knows how to do this or can point me in the right direction then will be much appreciated.