compactar arquivos zip com senha wiirra delphi

procedure TForm1.Button1Click(Sender: TObject);
  var
  AFile: string;
  LocateFile: string;
begin
  AFile := 'C:\su\sisetma\bruno.txt';
  LocateFile := 'C:\su\sisetma\bruno.txt'+ FormatDateTime('yyyy-mm-dd', Now) +'.rar';

  winexec(PAnsiChar(AnsiString('"C:\Program Files\WinRAR\WinRAR.exe" -ep1 a -p123456 '+ LocateFile +' "'+ AFile + '"')), SW_HIDE);

end;

end.