Tudo que você precisa é de um componente TSession, TListBox e uma StringList.
Defina a propriedade SessionName do TSession para 'Session'.
Utilize o seguinte código
Defina a propriedade SessionName do TSession para 'Session'.
Utilize o seguinte código