Como sair do loop?

  for Y := 0 to ListBoxCargos.Items.Count -1 do
  begin
    if ListBoxCargos.Checked[Y] then
    begin
      Tem := True;
==>   Quero abandonar o loop aqui! <==
    end;
  end;