Nada Selecionado no listbox

procedure TfrmConfiguracaoMidia.Button1Click(Sender: TObject);
var
 i:integer;
 NomeServico :String;
begin

     for i:= ListBoxNaoCadastrado.Items.Count -1 downto 0 do
       If ListBoxNaoCadastrado.Selected[i] then
         begin
            //pega o nome selecionado comecando para posição 1
             NomeServico := copy(ListBoxNaoCadastrado.Items[i], 1,60);
      end;

end;