Como abrir vários arquivos com o programa Delphi chamado via shell open

Atualmente, estou usando:

if ParamStr(1)<>'%1' then
begin
  address.Text:=ParamStr(1);
  autoconfigfile;
end;

para selecionar o nome do arquivo que foi usado para abrir o arquivo via associação de arquiv

Agora, quero desenvolver a capacidade de operar em vários arquivos. I.e. se eu selecionar 5 arquivos, clique com o botão direito do mouse e selecione abrir com "EncryptionSystem". Eu tenho a entrada do registro:

  reg.OpenKey('*\shell\Encrypt\command', true);
  reg.WriteString('','C:\Program Files\EncryptionSystem\EncryptionSystem.exe "%1"');
  reg.CloseKey;

Para adicionar um clique direito, abra a capacidade de todos os arquivos. Gostaria, então, da capacidade de detectar

quantos arquivos o nome do caminho de cada arquivo

questionAnswers(4)

yourAnswerToTheQuestion