Tópico: Ajuda com strore procedure 2

não é possível passar uma lista como parâmetro.

para fazer o que você precisa, sugiro condicionar o retorno da stored procedure.

altere a instrução para:

FOR
SELECT
  C.IDENTIFICADOR, C.DATA, C.HORA, C.TEXTO, C.OPCAO, C.PUBLICO, C.LOGIN, C.QUEM
FROM
  COMPROMISSO C
LEFT JOIN PESS0A_COMPROMISSO PC ON
  PC.ID_COMPROMISSO = C.IDENTIFICADOR
LEFT JOIN PESSOAFISICA PF ON
  PF.IDENTIFICADOR = PC.ID_PESSOA AND PC.TIPO_PESSOA = :TIPO_PESSOA_PF
LEFT JOIN PESSOAJURIDICA PJ ON
  PJ.IDENTIFICADOR = PC.ID_PESSOA AND PC.TIPO_PESSOA = :TIPO_PESSOA_PJ
LEFT JOIN CONTATO_PJ C_PJ ON
  C_PJ.IDENTIFICADOR = PC.ID_PESSOA AND PC.TIPO_PESSOA = :TIPO_PESSOA_C_PJ
WHERE
C.DATA BETWEEN :DATA_01 AND :DATA_02 AND
COALESCE(C.TEXTO,'') CONTAINING :TEXTO_ AND
COALESCE(PJ.NOME,'')||COALESCE(PF.NOME,'')||COALESCE(C_PJ.NOME,'') CONTAINING :NOME AND
C.OPCAO IN (:OPCAO_01, :OPCAO_02, :OPCAO_03)
INTO :IDENTIFICADOR, :DATA, :HORA, :TEXTO, :OPCAO, :PUBLICO, :LOGIN, :QUEM
DO

note que acima não tem mais o condicional de login. será retornado tudo que atende às condições, independente do login.

daí, você condiciona o retorno da stored procedure, pois ela funciona da mesma forma que uma tabela comum:

select * from retornacompromissos(0, 1, 2, '', '', current_date, current_date, 0, 1, 2) -- não passa mais o login
where login in ('ASAP', 'ADMIN')

fazendo dessa forma, você pode montar a lista de logins em tempo de execução.

var
  sSQL, sListaLogin: string;
  nLista: word;
begin
  // note que não passa mais o login
  sSQL := 'select * from retornacompromissos(:param1, :param2, :param3, :param4, :param5, :param6, :param7, :param8, :param9, :param10)'

  if lLoginEspecifico then
  begin
    sListaLogin := '';
    for nLista := 0 to lstListaLogin.count-1 do
    begin
      if sListaLogin <> '' then sListaLogin := sListaLogin + ', ';
      sListaLogin := sListaLogin + lstListaLogin.Items[nLista];
    end;

    sSQL := sSQL + ' where LOGIN in (' + sListaLogin + ')';
  end

  TIBXQuery.SQL.Text := sSQL;
  TIBXQuery.Params()...
  TIBXQuery.Open;

end;